foreach (@fileinhalt)
{
    chomp;
    $name[$i] = $frame->BrowseEntry(-text => $i,
            -relief => 'sunken',
            -command =>   \$tausche_name,
                        -width => '20',
            -bg => 'white',
            )->grid(-row=>$zeile, -column=>0);


    $nummer[$i] = $frame->JComboBox(
                       -entrybackground => 'white',
               -mode => 'editable',
            -relief => 'sunken',
            -selectcommand =>   \$tausche_nr,
            -entrywidth => '4',)
            ->grid(-row=>$zeile, -column=>1);


    $format[$i]  = $frame->Entry(
                       -width=>20) 
                       ->grid(-row=>$zeile, -column=>2,);
       $istwert[$i] = $frame->Label(-text => 'Labeltext',
                          -relief => 'ridge',
                          -borderwidth => '5',
                          -width=>30)
                         ->grid(-row=>$zeile, -column=>3,);

    $zeile++;    
    $i++;
}