Select Code to Download

my %items = ( z => [ qw/one six/ ],
              'y' => [ qw/two three five/ ],
...
      print "$first $second: $corr{$first}{$second}\n";
   }
}

foreach my $item (keys %items) {
   my @set = sort @{$items{$item}};
...
      print "$first $second: $corr{$first}{$second}\n";
   }
}