use List::Util qw/sum/;

my $num = sum map scalar @{$_}, @array;