Or even (no sorting, no array index arithmetic):

my %wanted = map { $_ => 1 } @unsorted;
my @sorted = grep { $wanted{$_} } @preferred;
[download]

Update: corrected typo 'arthimetic'.