my ($foo,$bar,$baz);

for my $row (@stuff) {
   ($foo,$bar,$baz) = @$row;
   write;
}

format STDOUT =
@<<<<<        @|||||     @### 
$foo,$bar,$baz