perl, 113 bytes

Result

AC

Duration

514ms

Code [DL]

@z=glob`dd`;$A+=int($_/6)*(@z[$_][email protected][$_+3])*(@z[++$_%3+3]*@z[$t=($_%3+1)%3][email protected][$_%3]*@z[$t+3])for 0..8;print$A/6

stdin

92 27 22
85 01 57
68 77 31
61 01 27

stdout

12806

stderr

0+1 records in
0+1 records out

strace