perl - Perl の $. @ARGV を設定して <> を使用すると、$ARGV の動作がおかしくなる

Question

コマンドラインから正規表現を取得し、現在のディレクトリで特定のファイル名とファイルタイプを再帰的に検索し、正規表現ごとにgrepし、ファイル名と行番号を含む結果を出力するperlプログラムを作成しました。[基本的なgrep +必要に応じてカスタマイズできる機能を見つける]

cat <<'EOF' >perlgrep2.pl
#!/usr/bin/env perl
$expr = join ' ', @ARGV;

my @filetypes = qw(cpp c h m txt log idl java pl csv);
my @filenames = qw(Makefile);

my $find="find . ";
my $nfirst = 0;
foreach(@filenames) {
    $find .= " -o " if $nfirst++;
    $find .= "-name \"$_\"";
}
foreach(@filetypes) {
    $find .= " -o " if $nfirst++;
    $find .= "-name \\*.$_";
}

@files=`$find`;

foreach(@files) {
    s#^\./##;
    chomp;
}

@ARGV = @files;

foreach(<>) {
    print "$ARGV($.): $_" if m/\Q$expr/;
    close ARGV if eof;
}
EOF

cat <<'EOF' >a.pl
print "hello ";
$a=1;
print "there";
EOF

cat <<'EOF' >b.pl
print "goodbye ";
print "all";
$a=1;
EOF

chmod ugo+x perlgrep2.pl
./perlgrep2.pl print

これをコピーして端末に貼り付けると、次のように表示されます。

perlgrep2.pl(36): print "hello ";
perlgrep2.pl(0): print "there";
perlgrep2.pl(0): print "goodbye ";
perlgrep2.pl(0): print "all";
perlgrep2.pl(0):     print "$ARGV($.): $_" if m/\Q$expr/;

これは私にとって非常に驚くべきことです。$. $ARGV 変数には期待した値がありません。変数の状態から、perl が <> に対するループの最初の繰り返しを実行するときに、3 つのファイルすべて (合計 36 行) を既に読み取っているように見えます。どうしたの ？直し方 ？これは Perl 5.12.4 です。