my @unordered = qw( a b c d );

my @order;
for my $s (@unordered) {
   push @order, /\Q$s/ ? $-[0] : die;
}

my @ordered = @unordered[
   sort { $order[$a] <=> $order[$b] } 0..$#order
];