sub a {
  ++$a;$_=join"",sort pop=~/./g;$_!=459?a(-$_+reverse):$a
} 

##</code><code>##

sub a {
  ++$a;($_=join"",sort pop=~/./g)!=459?a(-$_+reverse):$a
}