Select Code to Download

my $a = "x";            
while ($a ne "y")
...
    ...
    chop $a;
}

unless ($files[0]){
    print "\nSorry, no xml file(s) in script folder\n\nScript Terminat
+ed...\n\n";
...
    else{
    ...  # a gazillion rows
}

unless( scalar @files ){
  warn "no files";
  exit;
}
...

parse_file($_) for @files;

foreach my $i ( 0 .. $count ){

<li> to be more explicit (since you want an array), do <c>unless( ref(
+$doc->{$sub1}) eq 'ARRAY' ){

foreach my $sub1 ( sort keys %{ $doc } ){

...

                for my $sub3 ( sort keys %$sub3Hash ){

sub __add_non_array {
  my ($worksheet, $rowCount, $colCount, $sub) = @_;
...
        } $rowCount=4; $colCount+=3;
    }
}

  foreach my $sub2 ( sort keys %$sub2Hash ){
    my $aoh2 = $sub2Hash->{$sub2};