sub g{ # 1 2 3 4 5 6 7 # 123456789012345678901234567890123456789012345678901234567890123456789012 return$,if($_=pop)==495;$_=join'',sort split//,$_;$,++;g((reverse)-$_) }