my $mpy_1 = $mw->Entry( -width => 5, -textvariable => \$mpy1 )->pack();\n$mpy_1 -> grid(-row=>3,-column=>1, -in => $table)\n;my $mpe_1 = $mw->Entry( -width => 5, -textvariable => \$mpe1 )->pack();\n$mpe_1 -> grid(-row=>3,-column=>2, -in => $table)\n;
my $mpy_2 = $mw->Entry( -width => 5, -textvariable => \$mpy2 )->pack();\n$mpy_2 -> grid(-row=>4,-column=>1, -in => $table)\n;my $mpe_2 = $mw->Entry( -width => 5, -textvariable => \$mpe2 )->pack();\n$mpe_2 -> grid(-row=>4,-column=>2, -in => $table)\n;