sub abv {
    my $avg = avg(@_);
    return grep $_ > $avg, @_;
}