my @keys = keys %lists;

for my $i1 (0..$#keys) {
   my $key1 = $keys[$i1];

   for my $i2 ($i1+1..$#keys) {
      my $key2 = $keys[$i2];