use Tk;
my $mw = new MainWindow;
$mw->Listbox( -listvariable => $_, -exportselection => 0 )->pack
	for [11..15], [21..25];
MainLoop;