my $headline = $page1->Label(
    -text => 'Hier finden Sie alle in Scrutator verfügbaren Suchmaschinen.',
    -font => '{Bimini} 12 {bold}',
    -background => 'sky blue',
    -anchor => "w",
    -justify => "left")
    ->pack(-side => "top", -fill => "x", -expand => 1);

# in $frame ist der aktuelle Frame für die jeweilige Zeile enthalten
my $frame;

# in $anz steht die Anzahl der Suchmaschinen
my $anz = 6;

for my$i (1..int($anz/3))
{
  # jetzt erstmal einen Frame erzeugen
  $frame = $page1->Frame(-background => 'sky blue')
  ->pack(-side => "top", -fill => "x", -expand => 1);

  # dann kann man die 3 nächsten Suchmaschinen eintragen
  for my$j (0..2)
  {
    $frame->Checkbutton(-text => $av_searches[($i-1)*3+$j],
      -font => '{Bimini} 12 {bold}',
      -background => 'sky blue',
      -activebackground => 'sky blue',
      -variable => \$value)->pack(-side => "left");
  }
}