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 #### perl> use Devel::Size qw[ total_size ];; perl> $Devel::Size::warn = 0;; perl> print $_, ':', total_size( \$::{$_} ) for keys %::;; / : 382 stderr : 289 SIG : 3705 , : 399 utf8:: : 4359 " : 307 _:: : 460