use List::Util qw(sum);

my ($FreqP, $FreqN, $FreqZ) = map {int rand 41600} 0..2;
my $Sum = sum($FreqP, $FreqN, $FreqZ);

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

##</code><code>##

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

##</code><code>##

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