In fact, the sort and the if test are unnecessary, so we can further reduce the code to this:

my %hash2;
$hash2{$_}++ for values %hash1;
[download]

-- Mike

--
just,my${.02}