#Something tells me we're not programming in Perl anymore Toto. ;-)

for (1..2) {

    print "Run: ", $_, "\n";

    $^A = "";
    formline(<<'OUTPUT_TABLE', 1, 2);
@<<<<<<<      @<<<<<<<<<<<<
@<<<<<<<      @<<<<<<<<<<<<~
OUTPUT_TABLE

    $out .= $^A;
    print $out;
}

for (3..4) {

    print "Run: ", $_, "\n";

    $^A = "";
    formline(<<'OUTPUT_TABLE', 1, 2);
@<<<<<<<      @<<<<<<<<<<<<
@<<<<<<<      @<<<<<<<<<<<<~
OUTPUT_TABLE

    print $^A;
}