#!/usr/bin/perl
open X, $ARGV[0];
while ($_ = <X>) { $x{$_} = 1; }
while ($_ = <STDIN>) { $x{$_} || print $_; }