Select Code to Download

my @files = qw(File1.txt File2.txt);
my %tree;
...
        }
    }
}

use Data::Dumper;
print Dumper \%tree;

foreach my $iteration (@iterations) {
    print "$iteration\n";  # section header
...
        }
    }
}