Devel :: Size имеет инструменты для измерения использования памяти.
use Devel::Size qw( total_size );
my $memory_usage = total_size(\@a);
Если вы действительно пытаетесь найти общее количество символов в каждой строке в массиве,
use List::Util qw( sum );
my $total = sum 0, map length, @a;
или
my $total = 0;
$total += length for @a;