foreach (sort keys(%density)) { my $keytext = $mb->Label ( -height => 1, -width => 10, -text => "$_", -justify => 'left' ); $keytext -> grid( -column => "0", ); } foreach (sort keys(%density)) { my $denbox = $mb->Entry( -textvariable => \$density{$_}, -width => 5 ); $denbox -> grid( -column => "1" );