use strict;
use warnings;

my %hash = (a => 1, b => 2, c => 3);
my $buckets = %hash;
my $elems = () = %hash;
print qq{ Buckets: $buckets\nElements: $elems\n};