Select Code to Download

my %seen;
my @uniq;
...
                push(@uniq, $item);
        }
}

my %seen;
my @uniq = grep !$seen{$_}++, @lines;