+{map{$_,$_*$_}grep{$_==reverse($_)&&$_*$_==reverse$_*$_}1..pop}

##</code><code>##

+{map{$_,$_*$_}grep{reverse==$_&&$_*$_==reverse$_*$_}1..pop}