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