#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Pane;

my $mw = MainWindow->new();
$mw->geometry('500x500');

my $pane = $mw->Scrolled( 'Pane', -scrollbars => 'se' )->pack( -side => 'left', -fill => 'both', -expand => 1 );

my $perrow = 100;
foreach my $col ( 1 .. 1000 )
  {
  my $txt = "Col $col";  # doesn't work
  $pane->Label( -text => $txt, -relief => 'groove', -height => 20,
    )->grid( -row => int +($col - 1) / $perrow,
    -column => ($col - 1) % $perrow );
  }

MainLoop;