open (FILE, "foo.txt"); my @lines = ; close FILE;