open (REPORT,">$filename") || die "error";
...
$^ = "NEWPAGE";
...
foreach [outer loop]
   $~ = "FIRST_FORMAT";
   write (REPORT);

   foreach [inner loop]
      $~ = "SECOND_FORMAT";
      write (REPORT);

   [end inner loop]

[end outer loop]

close (REPORT) || die ...