my @keys = keys %hash;

for (my $i = 0; $i < @keys; $i++) {
  for (my $ii = $i+1; $ii < @keys; $ii++) {
      compare($hash{$keys[$i]}, $hash{$keys[$ii]});
  }
}