use Text::Reform;

my @name  = qw(foo foo2 foo3);
my @last  = qw(bar bar2 bar3);
my @count = qw( 3   4    5  );

print form
"--------------------------------------------------",
"NAME        LAST                 COUNT",
"--------------------------------------------------",
"[[[[[[[[[   [[[[[[[[[[[[[[[[[[   |||||",
 \@name,     \@last,              \@count;