@array = <FILE>;
@pattern = <FILE2>;
foreach $line(@array)
{
if ($line =~ m/@pattern/)
}
print $line;
}
}