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