for('00'..'99'){$x{$_}++unless$x{reverse()}}print keys%x