Select Code to Download

my %order = do {my $i = 0; map {$_ => $i++} @preferred};
my @sorted;
$sorted[$order{$_}] = $_ for @unsorted;
@sorted = grep {defined} @sorted;