Secret Number

Score: 71.00 (pass)

#!perl -l
for(@x=pop=~/./g;@x;pop@x){$i=print@x;($_+=$x[$i++])>9?$_-=9:0for@x}

Score: 80.00 (pass)

#!/usr/bin/perl -l
@x=pop=~/./g;@x=map{($z=$x[$_-1]+$x[$_])%10+($z>9)}1..$#x
while(print@x)&1<@x

Score: 81.00 (pass)

#!/usr/bin/perl -l
@x=pop=~/./g;@x=map{($z=$x[$_-1]+$x[$_])%10+($z>9)}1..$#x
while(print@x)&&1<@x