use Devel::Size 'total_size';
my $num=1000;
print total_size($num) . $/;
print total_size(pack("w*",$num)) . $/;

##</code><code>##

24
48

##</code><code>##

48
48