c:\@Work\Perl\monks>perl -wMstrict -le
"use List::Util qw(sum);
 ;;
 my $Sum = sum my ($FreqP, $FreqN, $FreqZ) = map { int rand 41600 } 0..2;
 ;;
 my @rows = (
   ['Freq(Z+)', $FreqP], ['Freq(Z-)', $FreqN], ['Freq(0)', $FreqZ], ['Total', $Sum],
   );
 ;;
 my $txtwidth =  9;
 my $numwidth = 16;
 ;;
 my $fmt = qq{%-*s %*d \n};
 printf $fmt, $txtwidth, qq{$_->[0]:}, $numwidth, $_->[1] for @rows;
"
Freq(Z+):            25578
Freq(Z-):            39490
Freq(0):             13091
Total:               78159