Select Code to Download

foreach my $tri (@trilet) {
    my ($f, $s, $t) = $tri =~ /(.)(.)(.)/;
...
    $second{"$s$t"}++;
    $third{"$f$t"}++;
}