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]}
}