#234567890123456789012345678901234567890123456789012345678901234567890
sub r{$_[0]eq reverse$_[0]}          #27 and...
sub n{foreach(1..$_[0]){$a{$_}=$_*$_ if r($_)&&r($_*$_)};\%a}  #61 - 7 = 54

#81 total

my $res = n(1000);

print $_, "   ", $res->{ $_ }, "\n" foreach ( keys %$res );