my %lines;

while (<DATA>) {
        unless (exists($lines{$_})) {print "$_"}
        $hash{$_}="done";   # element defined
}