my @checkBoxes = qw(Name Vorname Adresse PLZ Ort Telefon Geburtsdatum Eintrittsdatum Vereinsfunktion Ehrung); #Namenssuche my $f1=$SuchenFenster->Frame()->pack(-side => 'top'); my %checkBoxes = (); foreach my $name (@checkBoxes) { $checkBoxes{$name}->{variable} = 0; # not checked as default $checkBoxes{$name}->{widget} = $SuchenFenster->Checkbutton ( -background => 'lightgoldenrod1', -text => $name, -variable => \$checkBoxes{$name}->{variable}, ) ->pack(-side => 'left'); } # foreach # irgendwo auswerten: my @checkedFields = grep { $checkBoxes{$_}->{variable} } keys %checkBoxes; # jetzt hast du die namen der Felder in @checkedFields