my $size = 0;
for (@array)
{
$size += -s $_;
}