my @array = do { local *ARGV; @ARGV = "foo.txt"; <> };