sub a {

return$i if$_[0]==495;$a=join'',sort{$a<=>$b}split//,pop;$i++;a((reverse$a)-$a)
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_123456789

}