c:\Perl\test>p1
[0] Perl> use Devel::Size qw[ total_size ];;
[0] Perl> @a = (0) x 1e6;;
[0] Perl> print total_size( \@a );;
20000056
[0] Perl> $_.='' for @a;;
[0] Perl> print total_size( \@a );;
34000056

##</code><code>##

c:\Perl\test>p1
[0] Perl> use Devel::Size qw[ total_size ];;
[0] Perl> @a = ( 1.0 ) x 1e6;;
[0] Perl> print total_size( \@a );;
24000056
[0] Perl> $_.='' for @a;;
[0] Perl> print total_size( \@a );;
75000056