Select Code to Download

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

sub average { sum(@_) / scalar(@_) }

sub average
{
...

    return $average;
}