use Data::Dumper;
print Dumper \%somehash;
my $count = 0;
$count += 2 * @$_ for values %somehash;