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;