use strict;
use warnings;
use Tk;
my $w = MainWindow->new();
my $l = $w->Listbox()->pack();

for (qw(foo bar baz)){
    $l->insert('end', $_);
}

# disable it afterwards

$l->configure(-state => 'disabled');

MainLoop;