@stuff = qw/here are words/;
format STDOUT =
@<<<<<<<<<<<   BLAHBLAH   @<<<<<<<  BLAHBLAH   @<<<<<<<<<
$stuff[0], $stuff[1], $stuff[2]
.
write;