my $a = [[1,2,3],[4,5,6,7],[3]];
my $count = 0;
$count += @$_ for @$a;
[download]

--
$you = new YOU;
honk() if $you->love(perl)