my $seq = shift;
	my $amino_acid;
	for (my $i=0; $i<=length($seq)-3; $i=$i+3) {
		my $codon = substr($seq,$i,3);
		$amino_acid .= $genetic_code{$codon};
	}
	return $amino_acid;