foreach (sort keys(%density)) {
    Tk::grid(
        $mb->Label(
            -text => $_,
            -anchor => "w",
        ),
        $mb->Entry(
            -textvariable => \$density{$_},
            -width => 5
        ),
        -sticky => "ew",
       );
}