my $filename = ...; local $/; open IN, $filename; $text = ; @words{split /\s+/, $text} = undef; @words = keys %words;