use strict;
use warnings;

format RF =
testing
.

format RF_TOP =
top_of_form
.

for ( 1 .. 3 ) {
    open (RF, ">testfile$_") or die "Can't open file testfile$_: $!";
    select(RF);

    write RF;
    write RF;
    close RF;
    $- = 0;
}