my @felder = ();
my @menus = ();
# z = zeile; s = spalte
for( my $z = 0; $z <= 8; $z++ ){
    for( my $s = 0; $s <= 8; $s++ ){
        
        # Was soll gerae angezeigt werden?
        my $inhalt = "$z.$s";
        #my $inhalt = int( rand(8) + 1 );
        
        # Es wird in einem Label angezeigt
        $felder[$z][$s] = $mw->Label(-text => $inhalt,);
        
        # Dingens in Tabelle einfügen
        $t->put($z, $s, $felder[$z][$s]);
        # Menu für Feld erzeugen
        $menus[$z][$s] = $felder[$z][$s]->Menu(
                                               -menuitems => [
                                                              [Separator => ""],
                                                             ],
                                               );
        #die Dumper($menus[$z][$s]);
        $felder[$z][$s]->bind(
                              "<Button-3>" => sub {
                                $menus[$z][$s]->Popup(
                                             -popover => "cursor",
                                             -popanchor => 'nw'
                                             );
                                }
                              );        
    }
}