sub abv
{
    my (@numlist_args) = @_;

    my @cands = ();

    my $avg = avg(@numlist_args);

    foreach my $cand (@numlist_args) {
        if ($cand > $avg) {
            push(@cands, $cand);
        }
    }
    return @cands;
}