in reply to Re^3: Duplicate Results from Subroutine
in thread Duplicate Results from Subroutine

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

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom