Select Code to Download

@sorted = sort { by_list( \@sortorder ) } @tobesorted;

sub make_sorter {
  my $order = shift;
...
my @order1 = sort $order1, @tobesorted;
my @order2 = sort $order2, @tobesorted;
my @other2 = sort $order2, @othertobesorted;