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

# 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");

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