my $t = Text::Table->( qw( ID Name Source Type Assigment ) ); $t->load( [ 1, '...', '...', '...', '...' ], [ 2, '...', "NA\nEU", "Emp\nEx-emp", "Active\nInactive" ], [ 3, '...', '...', '...', '...' ] ); print $t; #### ID Name Source Type Assignment 1 ... ... ... ... 2 ... NA EU Emp Ex-emp Active Inactive 3 ... ... ... ... #### ID Name Source Type Assignment 1 ... ... ... ... 2 ... NA Emp Active EU Ex-emp Inactive 3 ... ... ... ...