>perl -wMstrict -le
"my %ha = ( fee => 33,  fie => 44, );
 my %hb = ( fee => 33,  xyz => 44, );
 printf qq{keys (%s): %ld   %s \n},
        join(' ', sort keys %$_),
        scalar keys %$_,
        'buckets used/allocated: ' . %$_,
        for \(%ha, %hb);
"
keys (fee fie): 2   buckets used/allocated: 1/8
keys (fee xyz): 2   buckets used/allocated: 2/8