sub k {
   $_="000"|"@_";/495/?0:1+k(-($_=join'',sort/./g)+reverse)
}