my @numbers = grep /^[0-9]+$/, @words;