use strict;

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

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