$words += scalar(split(/\s+/, $_));

##</code><code>##

        $words += split;

##</code><code>##

my %unique_word_count;
while ( <FILE> ) {
        my @words = split;
        $words += @words;
        $unique_word_count{ $_ }++ for @words;
}