$t = $mw->Scrolled("Text", -width => 35,
                   -wrap => 'none')->pack(-expand => 1, -fill => 'both');

foreach (qw/ Order1 Order2 Order3 Order4 Total/) {
        $w = $t->Label(-text => "$_:", -relief => 'groove', -width => 20);
        $t->windowCreate('end', -window => $w);
        $w = $t->Entry(-width => 20, -textvariable => \$info{$_});
        $t->windowCreate('end', -window => $w);
        $t->insert('end', "\n");
}
$t->configure(-state => 'disabled');