for (my $button=0; $button < readini(PRODUKTE, ANZAHL, 'produkte.ini'); $button++)
    {
    $produktnr[$button] = 'PRODUKT'.$button;
    ($textbutton = readini($produktnr[$button], NAMEDISPLAY, 'produkte.ini')) =~ s/\\n/\n/g;
    $fontface = readini($produktnr[$button], FONTDISPLAY, 'produkte.ini');
    $buttoncolor = readini($produktnr[$button], BUTTONCOLOR, 'produkte.ini');
    $placex=readini($produktnr[$button], X, 'produkte.ini');
    $placey=readini($produktnr[$button], Y, 'produkte.ini');
    $placeh=readini($produktnr[$button], H, 'produkte.ini');
    $placew=readini($produktnr[$button], W, 'produkte.ini');
    $mw->Button( -text => $textbutton,
                        -relief => "raised",
               
         -font => $fontface,
               
         -background => $buttoncolor,
               
         -activebackground => $buttoncolor,
               
         -command => sub { print $produktnr[$button];if (readini($produktnr[$button], AKTIV, 'produkte.ini') == 1) {
               
               
            print "bindrin";$wahl = readini($produktnr[$button], NAMEBON, 'produkte.ini'); 
               
               
            $wert = readini($produktnr[$button], PREIS, 'produkte.ini'); 
               
               
            $pfand_kz = readini($produktnr[$button], PFAND, 'produkte.ini'); 
               
               
            $pfand_wert = readini($produktnr[$button], PFANDWERT, 'produkte.ini'); 
               
               
            $pid = 0; for($i=0;$i<$menge_wahl;$i++) { &ausgabesumme; &print;}
               
               
            $storno_kz = 0; $menge_wahl = 1;}
               
               
            }
                        )->place( -x => $placex, -y => $placey, -height => $placeh, -width => $placew);
    }