my @array = do { local @ARGV = $name; <> };