$N=<>; @S=glob<>; @T=glob<>; $S[$_]ne$T[$_]&&($S=$S[$_],$T=$T[$_],$M=$_+1)for 0..$N-1; print"$M $S $T"