I haven't been able to do better than 64, but there's still a lot of redundancy in there.

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

Update:reverse is a tricky little bugger, isn't it? Down to 60, thanks to some ideas from MeowChow.

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