There's a diff to add this feature to Text::Table at http://grenekatz.org/downloads/perl/Text-Table-1.103.diff complete with extensions to the tests

Values with newlines in them are split to the next line properly. I also added the $tb object as the return value of ->add and ->load so that method calls could be chained.

print Text::Table
      ->new( qw( ID Name Source Type Assigment ) )
      ->load( [ 1, '...', '...', '...', '...' ],
              [ 2, '...', "NA\nEU", "Emp\nEx-emp", "Active\nInactive" 
+],
              [ 3, '...', '...', '...', '...' ] );

ID Name Source Type   Assignment
1  ...  ...    ...    ...
2  ...  NA     Emp    Active
        EU     Ex-emp Inactive
3  ...  ...    ...    ...
[download]