while (<>) {
    push @words, split /\s/;
}