$ perl -MDevel::Size=total_size -wle'
    my @a;        print total_size(\@a);
    @a=(1,2,3,4); print total_size(\@a);
    @a=();        print total_size(\@a);
'
56   <- Empty
136  <- With 4 numbers
72   <- Empty