Select Code to Download

foreach $prot_string (@truncated_sequences) {
    foreach $tri_seq (@triamino_combo) {
...
        $tri_freq{$tri_seq}='0' unless defined $tri_freq{$tri_seq};
    }
}