for('00'..'99'){$a.=$_ unless $x{$_} or $x{reverse $_}++};print $a; #234567890#234567890#234567890#234567890#234567890#234567890#234567 # 1 2 3 4 5 6