my @order = ...;
my %order = map { $order[$_] => $_ } 0..$#order;

my @sorted = sort { $order{$a} <=> $order{$b} } @unsorted;
[download]