Select Code to Download

my %unique;
@unique{@values} = ();

...
    print $_, $/;
    delete $unique{$_};
}

my %unique;
for (@values) {
    next if exists $unique{$_};
    print $_, $/;
    $unique{$_}++;
}