#Associative Array

%aminoAcids = (	"UUU","Phe",
				"UCU","Ser",
				"GGU","Gly");
				
$x = $aminoAcids{"UCU"};
print $x,"\n\n";

@acidsArray = %aminoAcids;
$x = $acidsArray[3];
print $x,"\n\n";

exit;