Select Code to Download

sub sort_em {
  my $src = shift;
...
      join( "\n", map { "$_ $numbers{$_}" }
                  sort { $num_sorts->{down}->() } keys %numbers ),
      "\n";