##
sub a {
$_=shift;do{$_=join'',sort/./g;$_=(reverse)-$_;$i++}until/495/;$i
#2345678901234567890123456789012345678901234567890123456789012345
}
##
##
sub a {
$_=pop;do{$_=join'',sort/./g;$_=(reverse)-$_;$i++}until/495/;$i
#23456789012345678901234567890123456789012345678901234567890123
}