#!/usr/bin/perl
@f{@ARGV}= (1)x@ARGV;
for (<*>) { print "$_\n" unless $f{$_}; }