Eeek! -w should yelp about: next if (%{$element1}->{$key} = %{$element2}->{$key});

Shouldn't that be a '==' for numeric comparison in that if?

No time for the rest, sorry but I had to point that out.

--
$you = new YOU;
honk() if $you->love(perl)