Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
for (sort {$results{$b} <=> $results{$a}} keys %results) {
    printf "%10d %s\n", $results{$_}, $_;
}

   1 4321
   1 2143
   1 4123
...
   1 4132
   1 1234
   1 2341