$words{join"",reverse split//}=$_

##</code><code>##

$words{reverse $_}=$_