<>; @A=glob<>; $i=-1; $_ ne $A[++$i]&&exit!print$A[$i],$/for(glob<>),0;