sub sym_num {    
    +{map{(($x=$_.$_*$_.$_)&&$x==reverse$x)?($_,$_*$_):()}1..pop}
}