sub mc_sym {
  \%{{map{(reverse eq$_&&($x=$_*$_)eq reverse$x)?($_,$x):()}1..pop}}
}

##</code><code>##

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

##</code><code>##

sub mc_sym {
  +{map{(reverse^$_||($x=$_*$_)^reverse$x)?():($_,$x)}1..pop}
}