$d = 0; $_->[0] == $_->[2]+1 and ++$d for @c; print $d;;
8010