<>; $A[$_]++&&exit-1for glob<>; $B[$_]++&&exit-1for glob<>;