sub average {
    if (@_) {
        my $sum;
        for (@_) {
            $sum += $_;
        }
        return $sum/@_;
    } else {
        return undef;
    }
}