$ perl -MDevel::Size=total_size -wle'
    sub foo { my @a; print total_size(\@a); @a=(1,2,3,4); }
    foo();
    foo();
'
56   <- Fresh variable
72   <- Fresh variable