Select Code to Download

my @locus_small = ();
my $line;
...
    push(@locus_small, "$tokens[0]\t$tokens[1]\t");
    }
}

foreach my $molecule (@molecules) {

...
        print OUTDATA  ($molecule, ": \n\t", join "\t", @found);
    }
}