sub abv
{
    # Move from top of the script down to here
    my @cands = ();
    foreach my $cand (@numlist) {
        if ($cand > $numlist_avg) {
            push(@cands, $cand);
        }
    }
    return @cands;
}