my $sp = $mw->Scrolled('Pane')->pack();

  foreach my $name (qw( bli bla blubb )) {
      $sp->Label(-text => $name)->pack(-pady => 1);
  }