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";
}