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

##</code><code>##

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

##</code><code>##

sub average
{
    my @arr = @_;
    my $average = 0;
    my $length = @arr;

    for(my $x=0; $x<$#arr; $x++)
    {
        $average = $average + $arr[$x]/$length;
    }

    return $average;
}