use strict;
use warnings;

my @row;
my @stuff = (
   [qw(foo bar 3)],
   [qw(foo2 bar2 4)],
   [qw(foo3 bar3 5)],
);

for (@stuff) {
   @row = @$_;
   write;
}



format STDOUT_TOP =
----------------------------------
NAME          LAST      COUNT
----------------------------------
.

format STDOUT =
@<<<<<        @|||||     @### 
@row
.