formline( "@<< @<< @<<", '1', '2', '2' );
print "$^A\n";

##</code><code>##

format =
.
formline( "@<< @<< @<<", '1', '2', '2' );
write;

##</code><code>##

format =
@<< @<< @<<
1,  2,  2
.
write;

##</code><code>##

say join ' ', map sprintf('%-3d', $_), 1, 2, 2;