a few changes, and viola! 79 chars.

sub sym {
    for(1..pop){
        sub s{$_[0]==reverse$_[0]}
        if(&s($_)&&&s($_**2)){$s{$_}=$_**2}
    }
    \%s;
}
[download]

~Particle

nevermind the xp, remember the experience.