Select Code to Download

my %order;
$order{$order[$_]} = @order-$_ for (0..$#order);
...
    local $^W=0;
    my @sorted = sort { $order{$b} <=> $order{$a} } @sortme;
}

my %order;
$order{$order[$_]} = $_+1 for (0..$#order);
my @sorted = sort { ($order{$a}||@order) <=> ($order{$b}||@order) }
             @sortme;