my @caves = (
  "down",
     "down",
        "down",
           "down",
              "down",
                 "down",
                    "deep",
                       "below");
foreach $children(@caves) {print "$down $children\n";$down.="   ";}
print "children of the caves let their\nsecret fires glow\n";