#!/usr/local/bin/perl -w

&initvars();
&getinput();
&printresults();

sub initvars {
    $input = "";  # temporary input
    @nums = ();   # array of numbers;
    %freq = ();   # hash of number frequencies
    $maxfreq = 0; # maximum frequency
    $count = 0;   # count of numbers
    $sum = 0;     # sum of numbers
    $avg = 0;     # average
    $med = 0;     # median
    @keys = ();   # temp keys
    $totalspace = 0; # total space across histogram
}

sub getinput {
    while (defined ($input = <>)) {
	chomp ($input);
	$nums[$count] = $input;
	$freq{$input}++;
	if ($maxfreq < $freq{$input}) { $maxfreq = $freq{$input} }
	$count++;
	$sum += $input;
    }

}

sub printresults {
    @nums = sort { $a <=> $b } @nums;
    
    $avg = $sum / $count;
    $med = $nums[$count /2];
    
    print "\nTotal count of numbers: $count\n";
    print "Total sum of numbers: $sum\n";
    print "Minimum number: $nums[0]\n";
    print "Maximum number: $nums[$#nums]\n";
    printf("Average (mean): %.2f\n", $avg);
    print "Median: $med\n\n";
}