#!/usr/bin/perl -- -*- cperl -*-
sub a{my%v=map{($w[$_],$_)}@w;my$n;sub{$v{$b}<=>$v{$a};
++$n}};sub _{my$v=shift;sub{$\=$v;$_='';}}@w=sort{&a->(
$a,$b)}map{_($_)}split//,"erl hc\nker.aPust another J";
for(@w){&$_;print;}