open (FILE, "foo.txt"); my @lines = map { chomp; $_; } ; close FILE;