<>; @a=glob<>; @b=glob<>; printf+(grep{$a[($_-1)%@a]==$b[($_-1)%@b]}1..@a*@b),-1