open(A, '1.txt'); while () { chmop; @m = split(" ", $_); $h{($m[0]*1000+ $m[1])*1000 + $m[2]} = 1;}close(A);open(B, '2.txt'); while () { chmop; @m = split(" ", $_); print if (! exists $h{($m[0]*1000+ $m[1])*1000 + $m[2]} );}close(B);
