my $len = @arr; # Number of lists contained in @arr. my $len = @{ $arr[0] }; # Number of elements contained in the list # referenced by $arr[0].