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