Select Code to Download

sub o {
$q=join'',@{$_[0]};
sort {$i=0;
{index($q,substr($a,$i,1))<=>index($q,substr($b,$i,1))or($i++,redo)}}@
+{$_[1]}
}

sub o {
$q=join'',@{$_[0]};
sort {$a cmp$b?do{$i=0;{index($q,substr($a,$i,1))<=>index($q,substr($b
+,$i,1))or($i++,redo)}}:0
}@{$_[1]}
}