use Text::Reform;
@name  = qw(Tom Dick Harry);
@score = qw( 88   54    99);
@Desc  = ('A longish sentence',
          'Another long sentence',
          'last of the long sentences');
print form
    '-------------------------------------------',
    'Name             Score     Desc',
    '-------------------------------------------';

for (my $i = 0; $i < @name; $i++)
{
    print form
    '[[[[[[[[[[[[[[   |||||     [[[[[[[[[[[[[[[[',
    $name[$i], $score[$i], $Desc[$i];
}
[download]