perl> use Devel::Size qw[ total_size size ];;

perl> print total_size( \%:: );;
[warnings omitted]
264621

perl> @a = 'A'..'M';;
perl> print total_size( \@a );;
446

perl> print total_size( \%:: );;
[warnings omitted]
265437

perl> @b{ 1 .. 100000 } = 1..100000;;
perl> print total_size( \%b );;
4813243

perl> print total_size( \%:: );;
[warnings omitted]
6803729