$|=($\=>@])=("\r"=>split//=>q=sPnh aku,telchte rJeaorr =);{($@,$:)=map$***$_%25
=>3=>2;@][$:=>$@]=@][$@=>$:];print@];select$,,$,,$,,$*/$=;$*++-$=&&redo}print$/