open FILE, "../data/foo.txt"; @lines = ($var1,$var2,$var3,$var4,$var5, $var6,$var7,$var8,$var9,$var10) = ; close FILE; print join "\n", @lines;