for $x (4..7) {
for $y (0..2) {
$AoA[$x][$y] = func($x, $y)
}
}$x = "Perl";
$y = "ist spitze";
foreach (4..7) {
$AoA[$_][1] = func1($x, $y);
}
push @{$AoA[6]}, "na","klar";
for $i (0.."$#AoA") {
for (0.."$#{$AoA[$i]}") {
print "$i,$_: $AoA[$i][$_] ";
}
print "\n";
}
print "Wert: $AoA[6][4]\n";
sub func {
(shift)*(shift)
}
sub func1{
shift;
$_[0];
}