my %results = ( addr => [ [ 1 .. 5 ] ] );
print "count is - ", scalar @{ $results{addr}->[0] };

__output__

count is - 5