DB<103> @hash{$_} = {x=>$x++,y=>$x++} for a..h
 => ""

  DB<112> while ( my ($k1,$v1) = each %hash ) {
            while ( my ($k2,$v2) = each %$v1 ) {
              print "$k1 - $k2 -$v2\n"
            }
          }
e - y -25
e - x -24
a - y -17
a - x -16
d - y -23
d - x -22
... # and so on