@a = (1..3);
@b = (4..6);
@c = (7..9);
@abc = map {[$a[$_], $b[$_], $c[$_]]} 0..$#a;

for ($i = 0, $i<$#a, ++$i) {

print "$abc[0]->[$i]\n";
print "${$abc[1]}[$i]\n";
print "$abc[2][$i]\n"
}

@a = (1..3); # erstelle ein Array @a mit den Elementen 1,2,3
@b = (4..6); # erstelle ein Array @b mit den Elementen 4,5,6
@c = (7..9);# erstelle ein Array @b mit den Elementen 7,8,9

# gehe von 0 bis zum may Index von @a (hier: 2, da 3 Elemente in @a)
# map gibt ein Array zurück. zwischen den {} steht, wie die Elemente
# aussehen. Hier wird ein anonymes Array zurückgegeben, in dem die Elemente
# aus @a,@b,@c sind, die jeweils den gleichen Index haben.
# der aktuelle Index (0..$#a) steht in $_
# Hier wird eine Matrix aufgebaut:
# Bei Excel wäre es A0,B0,B2,A1,B1,C1,A3,B3,C3
@abc = map {[$a[$_], $b[$_], $c[$_]]} 0..$#a;   

# ungefähre Langschreibweise:
# @abc;
# for(0..$#a){
#   push(@abc,[$a[$_],$b[$_],$c[$_]]);
# }

# for-Schleife. $i ist der Schleifenzähler... 
for ($i = 0, $i<$#a, ++$i) {
  # gebe vom 1.Element (mit Index 0) von @abc, das i. Element aus (also A0,B0,C0);
  print "$abc[0]->[$i]\n";
  # das gleiche für's 2.Element (A1,B1,C1)
  print "${$abc[1]}[$i]\n";
  # und die letzte Zeile...
  print "$abc[2][$i]\n"
}

@a = (1..3);
@b = (4..6);
@c = (7..9);
@abc = map {[$a[$_], $b[$_], $c[$_]]} 0..$#a;

for ($i = 0, $i<$#a, ++$i) {
print '$i: ',$i,"\n";
print "$abc[0]->[$i]\n";
print "${$abc[1]}[$i]\n";
print "$abc[2][$i]\n"
}

for ($i = 0; $i<$#a; ++$i) {

for my $i (0..$#a) {

my @abc = ( [ 1..3], [4..6], [7..9] );
foreach my $x (@abc) { 
  for my $y (@x) {
    print "$y\n";
  }
}

my @abc = ( [ 1..3], [4..6], [7..9] );
for (@abc) { print "$_\n" for @$_ }

for ($i = 0, $i<$#a, ++$i) {

for (0..1_000_000) {
  for (0..1_000_000) {
  # und noch ein paar mal

for (my $i=0;$i < $#a;$i++) {#...