<>; @a=glob<>; @b=glob<>; for(@a){ $z+=--$b[$_-1]<0; } print$z+0;