my %percent1 = map { $_ => ( $base1{$_} * 100) / $total1 } qw(A C T G N);