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
}