open (DB,"flat-file.txt") or die "couldn't open flat-file.txt: $!";
my %seen;
@content= grep {!$seen{$_}++} (<DB>);