Select Code to Download

@List = sort {
    $a eq "one" and -1
...
 or $b eq "thr" and 1
 or 0                   # advertising the default case
}