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