undef %AbyB; $i=1; $AbyB{ $_ } = $i, $AbyB{ $i++ } = $_  for 'aaaa'..'zzzz';;

print total_size( \%AbyB );;
80479783