use Devel::Size qw(size total_size);
my @arr;
$arr[100]=1;
print total_size(\@arr);