みようみまねでソース書いてる超初心者です。質問させてください。
特定のフォルダ内のテキストファイルのファイル名を配列filesに
取り込んで、ファイル名およびその内容を表示させたいと思っています。
以下のソースを書いてみたのですが、テキストファイルの中身を
表示させる部分がうまくいきません。「←A」の部分がおかしいのでは、と
思っているのですが・・・
正しい記述を教えてください。よろしくお願いします。


$mes = chdir "c:/program files/test";
@files = glob("*.txt");

foreach (@files) {
　　　　　　　print;
　　　　　　　print "\n";
}


$i=0;
do{
open ( FH , " < $files[$i].txt" ) ; #←Ａ

@data = <FH> ;
print @data;

$i++;

}while($files[$i]!="");

close ( FH ) ;