Perlを使った単語出現カウント

コマンドライン引数で　入力ファイルからデータ受け取って結果を出力ファイルに書き込みたいのですが、プログラムは
#!/usr/bin/perl

while ( <> ) {
@words = split(" ");
$wc{@words[0]} += 1;
}
foreach $key (keys %wc) {
print "$wc{$key} $key\n";
}
で今のコードでは、コンソールに出力されるだけとなってしまいます。
ファイル入出力を行うにはどうすればいいですか？

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2012/05/17 13:15

りだいれくと

それにしても, 「@words[0]」なんて書き方誰が教えるんだろう....