Select Code to Download

  use Data::Dumper;
  @headers = ("header 1","header 2","header 3");
...
                push @headers,"header ".$h++;
  }
  print "\n", scalar @headers, "\n", Dumper \@headers;

  4: header 1
  5: header 2
...
            'header 9',
            'header 10'
          ];