while ($Fh=<FH>)
{
   chomp($Fh);
   foreach $head(@headers)
   {
      chomp($head);
      if ($head =~ /$Fh/)
      {
         print "$Fh\n";     
      }
   }
}

##</code><code>##

  foreach line (data file)
    foreach line (keys file)
    if found
       print AND break inner loop (last)
    endif