my @FHs = ();
for my $i (0..$#ARGV) { # fuer jeden uebergebenen Parameter
  open( $FHs[$i], "<", $ARGV[$i] )
    or die "Error: couldn't open file '$ARGV[$i]': $!\n";
} # for

# z.B. alles in ein array einlesen
my @array = ();
foreach my $FH (@FHs) {
  push( @array, <$FH> );
  close( $FH ); # nicht mehr benoetigten FH schliesen
} # for

# array entsorgen, wenn da eh nichts mehr offen ist
undef( @FHs );