# index of last element
print $#{$h{a}},"\n";
# number of elements
my $num = @{$h{a}};
print "$num\n";