open (FH, "foo.txt");
my @words;
foreach (<FH>) {
   push @words, split;
}
close FH;
print "@words\n";