foreach (@filenames){
   open F, $_ or warn $!;
   while(<F> ){
      print "$_\n"; 
      last;
   }
}