local @ARGV = ($filename, $filename2);

# entweder
my $eingabe = \*ARGV;
my @lines = <$eingabe>;

# oder
my @lines = <ARGV>;