use Scalar::Util 'looks_like_number';

my @array;
while (<>) {
    chomp;
    if ( looks_like_number( $_ )) {
        push @array, $_;
    }
    else {  # skip this part if you don't care to know about bad input...
        warn "Unusable input line skipped: $_\n";
    }
}