##
$i=1; $intByStr{ $_ } = $i++ for 'aaaa'..'zzzz';;
$strByInt{ intByStr{ $_ } } = $_ for keys %intByStr;;
print total_size( $_ ) for \(%intByStr, %strByInt);;
50805928
44297159
##
##
undef %AbyB; $i=1; $AbyB{ $_ } = $i, $AbyB{ $i++ } = $_ for 'aaaa'..'zzzz';;
print total_size( \%AbyB );;
80479783