$ perl -E 'my ($a1, $a2) = ([1,2,3],[1,3,3]); say scalar grep {$a1->[$_] == $a2->[$_]} 0..$#$a1'
2