foreach (@files) { 
   open FILE, "$_" or die "error opening $_: $!"; 
... 
}