Help for this page

Select Code to Download

Select or download this

my %term_order;
@term_order{qw( SM AU WI SP )} = 1..4;
...
    my @sort = sort { $term_order{$a} <=> $term_order{$b} } @$try;
    print "@sort\n";
}

Select or download this
```
SM AU WI SP
SM AU WI SP
SM AU WI SP
```