my %words;
while (<>) {
    @words{ split } = ();
}