Secret Number

Score: 72.00 (pass)

#!/usr/bin/perl -l
split//,shift;{$==print@_;($_+=$_[$=++])&&=$_%9||9 for@_;$#_--&&redo}

Score: 74.00 (pass)

#!/usr/bin/perl -l
split//,shift;do{$==print@_;@_=map{$_+=$_[$=++]and$_%9||9}@_}while$#_--