use Term::TablePrint qw( print_table );
$table_data = [
    [ 'Id', 'Name', 'Num' ],
    [ ' 1', 'aaaaa', 1000 ],
    [ ' 2', 'bbbbb', 1001 ],
    [ ' 3', 'ccccc', 1002 ],
    [ ' 4', 'ddddd', 1003 ],
    [ ' 5', 'eeeee', 1004 ],
    [ ' 6', 'fffff', 1005 ],
    [ ' 7', 'ggggg', 1006 ],
    [ ' 8', 'hhhhh', 1007 ],
    [ ' 9', 'iiiii', 1008 ],
];
$table_data->[3][0] = "\e[32m$table_data->[3][0]";
$table_data->[7] = [ map { "\e[32m$_\e[m" } @{$table_data->[7]} ];
print_table( $table_data, { color => 2 } ); # oder color => 1
[code=perl]

Bei einem Reset nach jedem Element würde es aussehen wie Reihe 7 wobei dann Reihe 3 nicht mehr möglich wäre.