Select Code to Download

use List::Util qw(sum);

...
printf ( "Freq(Z-):    %16d\n" , $FreqN) ;
printf ( "Freq(0):     %16d\n" , $FreqZ) ;
printf ( "Total:    %19d\n" , $Sum) ;

Freq(Z+):               32571
Freq(Z-):               25729
Freq(0):                 9025
Total:                  67325

printf ( "Freq(Z+):    %016d\n" , $FreqP) ;