use strict;

my @{dieses} = qw (aaaa bbbbbb cccccc ddddddddddddd);
my $xyz="dieses";

# Das Geht
foreach my $wert (@{dieses}) {
print "$wert\n";
}

# Das nicht "Can't use string ("dieses") as an ARRAY ref while "strict refs" in use at x.pl line 12."
foreach my $wert (@{$xyz}) {
print "$wert\n";
}

foreach my $zeile (@log{1}) { mach_was }

foreach my $zeile (@log{$variable}) {mach_was}

my @dieses = qw (aaaa bbbbbb cccccc ddddddddddddd);
my $xyz    = \@dieses;

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;