And I can take it down a litter further massaging your code into this:

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

But I can't do one on my own... my own solution came in at 83 :(

mr.nick ...