#!/usr/bin/perl
use strict;
use warnings;

use List::Util qw(sum);

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

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

__END__
Freq(Z+):               11640
Freq(Z-):                3527
Freq(0):                33243
Total:                  48410