Help for this page
$baseball{yankees} = 'new york'; # OR $baseball{yankees} = $baseball{mets};
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)