use Tk;
$top = tkinit;

# Gitter erzeugen
for (1..9) {
    $top->Label(-text => $_)->grid(-row => ($_-1)/3,
                                   -column => ($_-1)%3,
                                  );
}
$top->Label(-text => "0")->grid(-row => 3, -column => 1);

# Gleiche Breiten und Höhen erzwingen:
for (0..2) {
    $top->gridColumnconfigure($_, -weight => 1, -uniform => 1);
}
for (0..3) {
    $top->gridRowconfigure($_, -weight => 1, -uniform => 1);
}
MainLoop;