my @opt = (-fg => $fg, -bg => $bg);
    push @opt, -font => $newfont if length $newfont;
    $mw->Label(-text => "Col. 1", @opt, -padx => 10)->grid(
        $mw->Label(-text => "Col. 2", @opt, -padx => 11),
        $mw->Label(-text => "Col. 3", @opt, -padx => 11));