use strict;

my @AoA;
push @AoA, [1..40] for(1..20);

print ref $AoA[0]."\n";
print "".(ref $AoA[0])."\n";
print $AoA[0][1]."\n";

Producing (correctly): 
ARRAY
2