Select Code to Download

for my $a (0..@a) {
  for my $b (0..@b) {
...

# Now sort according to the number of zeros
return sort {$permutation{$a} <=> $permutation{$b}} keys %permutation;

return sort {$permutation{$a} <=> $permutation{$b} ||
             $a cmp $b} keys %permutation;