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