Select Code to Download

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

        $words += split;

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