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

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

    return $average;
}