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