use Term::TablePrint qw(print_table); my $table = [ [ 1, 'Ruth' ], [ 2, 'John' ], [ 3, 'Mark' ], [ 4, 'Nena' ] ]; print_table( $table, { add_header => 1 } );