sub average {
    $sum = shift @_;
    while (defined($num = shift @_)) {
        $sum += $num;
    }
}