use Data::Dumper; # nur um sich dann mal die Datenstruktur anzuschauen my @logfiles; for (1..3){ my $file = 'logfile' . $_ . '.log'; open my $fh, '<', $file or die $!; my @lines = <$fh>; # Referenz auf die Zeilen in einem Array speichern $logfiles[$_] = \@lines; close $fh; } # im zweiten Element (weil Arrays mit Index 0 anfangen) ist jetzt eine # Referenz auf ein Array mit den Zeilen von logfile1.log, im dritten Element # eine Referenz auf ein Array mit den Zeilen von logfile2.log,... # einfach mal die Datenstruktur ausgeben print Dumper( \@logfiles ),"\n"; # irgendwas anderes # gebe alles von logfile2.log aus: my $logfile_nr = 2; my @logfile_lines = @{$logfiles[$logfil_nr]}; print $_ for @logfile_lines;