Numbers above the avrg sum

#$usr/bin/perl
use 5.010;
use warnings;
use strict;


my @avrg= &above_avrg(100, 1..10);
my @avr = &above_avrg(1..15);
say "@avrg";
say "@avr";


sub above_avrg {
my $sum = 0;

foreach (@_){
    $sum += $_;
}
my $avrg =  $sum / ($#_ + 1);
my @greatest;
foreach (@_){
if($_ > $avrg){

push @greatest,$_;
}
}
return @greatest;
}