use v5.14;
use warnings;
use IO::Interactive qw( is_interactive );
use Scalar::Util qw( looks_like_number );
use List::Util qw( sum );


say "Enter a list of numbers to find above average numbers, one per line:"
    if is_interactive;
my @numbers = get_input();
say "No numbers entered. Exiting" and exit if ! @numbers;
my $average = average( @numbers );
say "The average is $average";
say "The above-average numbers are:";
say "\t$_" for above_average( $average, @numbers );


sub average {
    return sum( @_ ) / @_;
}

sub above_average {
    my $average = shift;
    return grep { $_ > $average } @_;
}

sub get_input {
    chomp ( my @numlist = <STDIN> );
    return grep { length $_ && looks_like_number($_) } @numlist;
}