sub o {
@k{@$A}=map chr,1..@{$A=$_[0]};
map{s/.*\0//s;$_}sort map{($x=$_)=~s/./$k{$&}/gs;"$x\0$_"}@{+pop}
}