for (1..10) {
    my $x = 'foo ' x 100;
format STDOUT = 
   @<<<< ^<<<<<<<<<<<
$_, $x
~~       ^<<<<<<<<<<<
$x
.
    write;
}