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

Presuming a recent enough Perl, of course. See perlopentut and the open docs. Older Perls you could use IO::File instead in a similar fashion.