for my $file ( @ARGV ) {
   open my $fh, '<', $file or die "$file: $!";
   while ( <$fh> ) {
      ...
   }
   close $fh;
}