sub average {
    ref( my $array_ref = $_[ 0 ] ) eq 'ARRAY'
        or die 'Sub usage: $average = average(\@array);';
    my $sum;
    $sum += $_ for @$array_ref;
    return $sum / @$array_ref;
    }