for (@ARGV ) {
  open( my $in, "<", $_ ) or die "Can't open '$_': $!\n";
  push @infile, $in;
}