Select Code to Download

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

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