use Data::Dumper;
  @headers = ("header 1","header 2","header 3");
  @body = ("body A","body B","body C");
  $h = 4;
  foreach (@headers,"",@body) {
        print "$h: $_\n";
            @body = ();
                push @headers,"header ".$h++;
  }
  print "\n", scalar @headers, "\n", Dumper \@headers;

##</code><code>##

  4: header 1
  5: header 2
  6: header 3
  7:
  8: header 4
  9: header 5
  10: header 6

  10
  $VAR1 = [
            'header 1',
            'header 2',
            'header 3',
            'header 4',
            'header 5',
            'header 6',
            'header 7',
            'header 8',
            'header 9',
            'header 10'
          ];