Convert DNA sequence into amino acid sequence by using perl

From the lecture, there is two way to do this.

First, typing all each codon.

$uuu = 'F';

$auu = 'I';

...

then use array

@AA = ( 'G', 'I', 'K', ...);

@Base = ( 'a', 't', 'g', 'c');

for (@Base) {

AA= ('A', "gcc", 'L', "uua", ...

for(%AA) {

...

print

write ( )