Select Code to Download

sub SuggestionSort {
...
    }
    grep defined, @sorted;
}

use strict;

...
my @sortme = qw(foo bar baz cat dog elephant bird);

print join(", ", &SuggestionSort(\@sortme, \@order)),"\n";