#Geometry Management
my $table = $mw->Frame ();
my $lab4 = $mw->Label( -text => "Year" )->pack();
my $mpy_0 = $mw->Entry( -width => 5, -textvariable => \$mpy0 )->pack();
my $lab5 = $mw->Label( -text => "Momentary\nPop. Est." )->pack();
my $mpe_0 = $mw->Entry( -width => 5, -textvariable => \$mpe0 )->pack();
$lab4 -> grid(-row=>1,-column=>1, -in => $table);
$lab5 -> grid(-row=>1,-column=>2, -in => $table);
$mpy_0 -> grid(-row=>2,-column=>1, -in => $table);
$mpe_0 -> grid(-row=>2,-column=>2, -in => $table);
foreach my $b (0 .. $LST-1){
	print $mpy_mpe[$b];
}
$table->pack ();