for$i(0..99){$y=0;($i%$_<1&&$y<$a[$_])?$y=$a[$_]:0 for 1..99;push@a,$y+$i-9*int$i/10}push@a,19;print$a[$_],$/for<>