for my $key1 (keys %lists) {
   for my $key2 (keys %lists) {