#!/usr/bin/perl
use Tk;
use strict;
use warnings;

my $w = MainWindow->new(
        -title  => 'test',
    );

for (1..2){
    my $l = $w->ScrlListbox(
            -selectmode => 'extended',
    )->pack();
    for (1 .. 10){
        $l->insert('end', $_);
    }
}

MainLoop;