open (FH, "foo.txt") ;
while (<FH>) {
  chomp;
  @lines1 = split / /, $_;
}
close FH;
print "@lines1\n";

##</code><code>##



###### map code ############
open (FH, "foo.txt");
my @words = map { split } <FH>;
close FH;
print "@words\n";
############### array split##########
open (FH, "foo.txt");
my @lines = <FH>;
close FH;
my @lines1 = split(' ', @lines);
print "\@lines1 is @lines1";