Select Code to Download

my @wanted;
for my $line ( @lines ) {
...
}
@wanted = uniq @wanted;
print "$_\n" for @wanted;