for $x (4..7) {
     for $y (0..2) {
         $AoA[$x][$y] = func($x, $y)  # was wird übergeben
     }
 }
 
 $x = "Perl";
 $y = "ist spitze";
 
 foreach (4..7) {
     $AoA[$_][1] = func1($x, $y); # was wird übergeben
 }
 
 push @{$AoA[6]}, "na","klar";
 
 for $i (0.."$#AoA") {
     for (0.."$#{$AoA[$i]}") {
         print "$i,$_: $AoA[$i][$_] ";  # was passiert in den
     }                                              # beiden for-Schleifen
     print "\n";
 }
 
 print "Wert: $AoA[6][4]\n";
 
 sub func {
 (shift)*(shift)    # was passiert in der Funktion
 }
 
 sub func1{
     shift;
     $_[0];         # was passsiert in der Funktion
}