Select Code to Download

if ( $seen{ $elem } ) {
    next; # skip to the next loop iteration
...
else {
    $seen{ $elem } += 1;
}

use strict;
use warnings;
...
}

close $IN; close $OUT;

while (<$IN>) { $seen{$_}++ || print $OUT $_ }