Select Code to Download

sub by_cpu {
    no warnings 'numeric';
...
}
for my $tc (sort by_cpu keys %$passes) {
    # ...

my @dashed;
my @sorted = sort { $passes->{$a}{cpu} <=> $passes->{$b}{cpu} }
...
             } keys %$passes;
for my $tc (@dashed, @sorted) {
    # ...