I tried like this:

#!/usr/bin/perl

use strict;
use warnings;

my @AoA = (
          [1, 2, 3, 4],
          ['a', 4, 2, 's'],
          );
for my $aref (@AoA) {
    print "\t[@$aref]\n";
}
print "\t$AoA[0][0]\n",
      "\t$AoA[1][0]\n";
for my $i (0 .. $#AoA) {
    for my $j (0 .. $#{$AoA[$i]}) {
        print "\t$AoA[$i][$j]\n";
    }
}
[download]