Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print join "\n", @ordered;
exit;

/^\d/?():(99999)

# ...
my @ordered = map { (split /\t/)[1] }
...
}
@unordered;
# ...