Secret Number

Score: 77.00 (pass)

#!/usr/bin/perl -l
split//,pop;while(@_){print@_;my$x;($_+=$_[++$x],$_-=$_>9?9:0)for@_;pop@_}

Score: 83.00 (pass)

#!/usr/bin/perl -l
split//,pop;while(@_){print@ARGV=@_;shift@_;pop;for(@_){$_+=shift;$_-=9if$_>9;}}