... here i have written the script using associative array. but unable to get the answer.
open(FH,"seq.txt");
@seq1 = <FH>;
shift(@seq1);
$seq = join('',@seq1);
print"$seq";
%pro=('I'=>'AUU','I'=>'AUC','I'=>'AUA','L'=>'CUU','L'=>'CUC','L'=>'CUA','L'=>'CUG','L'=>'UAA',
'L'= ...