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  ...  ...    ...    ...