for('00'..'99'){$h{$_}++if(!($h{$_}||$h{reverse$_}))}print keys%h #### 67330568261704029988180316064455272528015714695907498924003511787948227708461323293936581215473834566637451909