sub transform {
    my $coderef=shift;
    reduce($coderef,@_)/(@_+1);
}
sub display {
    printf("Avg: %f",transform(sub { $a > $b ? $a : $b },@_));
}

##</code><code>##

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);
}