Select Code to Download

use strict;
use warnings;
...
my $buckets = %hash;
my $elems = () = %hash;
print qq{ Buckets: $buckets\nElements: $elems\n};

 Buckets: 3/8
Elements: 6