my $cnt = 0;
while($table_hl->header('exists',$cnt))
{
print $table_hl->headerCget($cnt, -text);
$cnt++;
}