$|=$i{rek}=q;>;x2;;$i=join"",map{(split//,"tsuJ")[$_]}(split//,3210);
open i,$i{rek},\$i;print i" another  lreP";close i;($;,$:)=$i=~m=^(.+
\s)(\s\S+)$=x;$i{caH}=open i,$i{rek},\$;;@_=map{scalar reverse$_}sort
keys%i;print i+scalar(reverse$:),@_[0,-1],$/;close i;print$;