#!/usr/bin/perl

use strict;
use warnings;
use DBM::Deep;
use Fcntl;   # For O_RDWR, O_CREAT, etc.

my $f1 = shift or die "usage: $0 file1 file ...\n";
open my $f, "< $f1" or die "$f1: $!\n";
tie my %f1, "DBM::Deep", "mydb.sdbm", pack_size => 'large';
while (<$f>) {
$f1{$_}++;
}
while (<>) { # The rest of the files
	if (exists $f1{$_}) {
		print "GOOD\n";
	}
	else {
		print "BAD\n";
	}
}
untie %f1;