sub average {
    if (@_) {
        my @temp = @_;
        my $sum = 0;
        foreach (@temp) {
            $sum = $sum + $_;
        }
        return $sum/@temp;
    }
}