>228
ありがとうございます。

pushを使えばよいのですね。

私がやりたかったことは
（１）カレントディレクトリから
（２）ファイル名のみを配列に格納する
ことでした。

しかし、$fileのデータをどうやって配列に入れるか
悩んでいました。

以下はなんでダメなのでしょう？
@fileにファイル名が格納されるとおもったのに。。。

use Cwd;

my $dir = Cwd::getcwd();
my @file;

opendir DH, $dir or die "$dir:$!";
while (@file = readdir DH) {
next if @file =~ /^\.{1,2}$/;
}
closedir DH;

print @file;

foreach(@file){
print" $_\n";
}