#!/bin/perl
use warnings;
use strict;

package main;

my @names  = ('NameA', 'NameB', 'NameC','NameD' );
my @ages   = (353, 32, 2356, 75);
my @sizes  = (44, 212, 32, 328);
my @scores = (900, 128, 99, 1000);

print "=======================================";
print "=============================================\n";
print " Name                      Age         ";
print "                Size                    Score\n";
print "=======================================";
print "=============================================\n";

for ( my $i = 0; $i < scalar @names; $i++ ) {
    printf "%5s                     %4d           ", 
        $names[$i], $ages[$i];
    printf "              %4d                     %4d\n", 
        $sizes[$i], $scores[$i];
}

##</code><code>##

C:\Code>perl table.pl
====================================================================================
 Name                      Age                         Size                    Score
====================================================================================
NameA                      353                           44
            900
NameB                       32                          212
            128
NameC                     2356                           32
             99
NameD                       75                          328
           1000