foreach (1..20) {
      $canvas(or $frame)->Label(-text => 'test')->pack;
   }