use Devel::Size qw[ total_size ];
...
printf "%s :: %.f\n", $_, total_size( $::{ $_ } ) for keys %::;;
####
/ :: 382
stderr :: 289
SIG :: 3705
, :: 399
utf8:: :: 4359
" :: 347
_:: :: 460
sleep :: 839
####
[0] Perl> printf "%s :: %.f\n", $_, total_size( $::{ $_ } ) for keys %{ Benchmark:: };;
timesum :: 112
__ANON__ :: 112
cpu_a :: 112
a :: 112
n_to_for :: 112
_doeval :: 112
iters :: 112
_Usage :: 112
Min_CPU :: 112
init :: 112
cmpthese :: 27607
debug :: 112
export :: 112
new :: 112
timestr :: 112
EXPORT_TAGS :: 112
timethis :: 112
countit :: 112
EXPORT_OK :: 112
confess :: 112
EXPORT_FAIL :: 112
timediff :: 112
cpu_c :: 112
b :: 112
ISA :: 112
export_to_level :: 112
Default_Style :: 112
timethese :: 112
time :: 829
Cache :: 112
cpu_p :: 112
Debug :: 112
clearcache :: 112
BEGIN :: 287
Do_Cache :: 112
runloop :: 112
timedebug :: 112
real :: 112
usage :: 112
clearallcache :: 112
timeit :: 112
EXPORT :: 112
croak :: 112
import :: 112
disablecache :: 112
enablecache :: 112
Min_Count :: 112
carp :: 112
Default_Format :: 112
VERSION :: 112
mytime :: 112