sub display {
    my (@quarterly_results) = @_;
    # compute the arithmetic mean (average) of the results
    # for the past four quarters
    printf("Avg: %f", average(@quarterly_results);
}

sub average {
    my $average;
    $average = sum(@_)/ scalar(@_);
    return($average);
}