#!/usr/bin/perl --
use strict;
use warnings;
my @stuff;
push @stuff, [ qw[ TECH SCANNER WEBSERVER TALKTOME TRAINING ] ];
push @stuff, [ qw[ TESTING MOBILE TECHADMIN CIRCADMIN MANAGERS ] ];

for my $row ( @stuff ){
    my @rows = @$row;
    print "@rows\n";
    format STDOUT =
    @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<< 
    @rows
.

    write;
}
__END__
TECH SCANNER WEBSERVER TALKTOME TRAINING
    TECH           SCANNER        WEBSERVER      TALKTOME       TRAINING
TESTING MOBILE TECHADMIN CIRCADMIN MANAGERS
    TESTING        MOBILE         TECHADMIN      CIRCADMIN      MANAGERS