my %index; @index{@array} = 0..$#array;
my @result = sort { $index{$a} <=> $index{$b} } @subset;