for my $x (0..$#all)
{
if($_ =~ /$all[$x]/)
{
print F2 $_;
}
}