下記の例では、Perl スクリプトを起動するときに渡されたコマンドラインパラメータをループ処理しています。
while ($_ = shift) { # @ARGV から 1 つ取り出す
if (/^-(.*)/) {
process_option($1); # オプション（-t など）を処理
} else {
process_file($_); # それ以外のパラメータはファイル名のはず
}
}
参考: Effective Perl