Select Code to Download

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

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