for (my $aa = 0; $aa < length($dohg2); $aa=$aa+3)
{my $sub8 = substr($dohg2, $aa-1, 3);
$lol2=$codon{$sub8};
#print $lol2;
push @array4, $lol2;
}
my $dohg3 = join "", @array4;