AとBの2つのファイル比較して
Bの行の単語がAのどこかの行にあったら
その行を出力させたいんだけど。

open(FILE1,$ARGV[0]);
open(FILE2,$ARGV[1]);
while(FILE1){
$hoge=$__;
while(FILE2){
$pattern=$_;
if($hoge =~ /$pattern/){
print "$hoge \n";
}
}
}