Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my @results = sort { $order{$a} <=> $order{$b} } @subset;

print "results: @results\n";

Select or download this
```
results: APPLE GRAPE PINEAPPLE
```