###### 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";