my @array1=(1,2,3,4,5);
my @array2=(6,7,8,9,10);
my @array3=(11,12,13,14,15);

my $referenz_auf_array1=\@array1;
my $referenz_auf_array2=\@array2;
my $kopie_von_array3_in_anonymes_array=[@array3];

print $referenz_auf_array1->[0]."\n" # gibt aus 1 wie es in array1 steht
$referenz_auf_array1->[0]=111;
print $array1[0]."\n" # gibt 111 aus da Refenz und Array zusammenhängen

print $kopie_von_array3_in_anonymes_array->[0]."\n" # gibt 11 aus
$kopie_von_array3_in_anonymes_array->[0]=1;
print $array1[0]."\n" # gibt 11 aus da Refenz und Array nicht zusammen hängen.

my @alle_arrays=($referenz_auf_array1,$referenz_auf_array2,kopie_von_array3_in_anonymes_array);

print $alle_arrays[0]->[0]."\n" # gibt 111 aus wie es in $referenz_auf_array1 und @array1 steht

# der Pfeil ist hier optional. Perl versteht es auch ohne diesen.
print $alle_arrays[0][0]."\n" # gibt 111 aus wie es in $referenz_auf_array1 und @array1 steht