my @ints = grep { int($_) == $_ } @numbers;
my $ave = ave( @ints );