adapted fron runrig, assuming no duplicate:

my @sortme = qw(a b c d); my @order = qw(d c e f); my %sortme;
$sortme{$_}++ for @sortme;
local $,=' ';
print ((grep {$sortme{$_}-- } @order), grep { $sortme{$_} } @sortme);
[download]

prints "d c a b"

-- stefp