my @AoA = ([qw/Mercury Venus Earth Mars/], [qw/1 1 2 3 5 8 13 21/]);
for my $index (0 .. $#AoA) {
    print "$index\t@{ $AoA[$index] }\n";
}
[download]

0 Mercury Venus Earth Mars 1 1 1 2 3 5 8 13 21