my @word_count = (); @word_count = split(/\s/, $file); # Find out how many words are in abstracts. my $word_number = scalar(@word_count);