Select Code to Download

ball score total
   5    5   164
...
   3    3    25
   /   16    22
   6    6     6

sub hole {
#        1         2         3         4         5         6          
+7         8        9          10
#234567890123456789012345678901234567890123456789012345678901234567890
+1234567890123456789012345678901012345
$i=$s=0;for(@_=(0,0,reverse@_)){$s+=$_[$i-1]+$_[$i-(/X/?2:-1)],$_=/X/?
+10:10-$_[$i+1]if/\D/;$s+=$_;$i++}$s
}