use feature qw( say );

use Devel::Size qw( total_size );
use Devel::Peek qw( Dump );

my $num = 1000;
say total_size($num);
Dump($num);

say '';

my $packed = pack("w*",$num);
say total_size($packed);
Dump($packed);