for my $codon ($seq =~ /(...)/g) {
        my $trans = codon2aa($codon);
        print "$name\t$trans\n";
    }