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