use Devel::Size qw[ total_size ];
...

printf "%s :: %.f\n", $_, total_size( $::{ $_ } ) for keys %::;;