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',
    '-------------------------------------------',
    '[[[[[[[[[[[[[[   |||||     [[[[[[[[[[[[[[[[',
    \@name, \@score, \@Desc;