foreach my $column ($mlistbox->columnGet(0, 'end')) {
   $column->Subwidget("heading")->configure(-pady => 0);
}