my @lines= do { local(*ARGV); @ARGV="filename.txt"; <> };