ball score total 5 5 164 / 16 159 6 6 143 3 3 137 X 27 134 X 17 107 7 7 90 0 0 83 4 4 83 3 3 79 X 20 76 4 4 56 / 18 52 8 8 34 1 1 26 3 3 25 / 16 22 6 6 6 #### sub hole { # 1 2 3 4 5 6 7 8 9 10 #2345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901012345 $i=$s=0;for(@_=(0,0,reverse@_)){$s+=$_[$i-1]+$_[$i-(/X/?2:-1)],$_=/X/?10:10-$_[$i+1]if/\D/;$s+=$_;$i++}$s }