Select Code to Download

 die "Ack!  That's no reference. IT'S A MAN BABY\n" unless(ref $firstR
+ow eq "ARRAY);

use strict;

...
Producing (correctly): 
ARRAY
2

for(1..$rows)

print ref $obj->{AoA};

print ref $obj->{AoA}[$row];