#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Listbox;

my @array = qw(1 2 3 4);
my $mw    = tkinit();
my $list  = $mw->Scrolled('Listbox',
               -scrollbars   => 'osoe')->pack();
my $bt    = $mw->Button(-text    => 'Aenderung',
                        -command => \&change_array)->pack();
$list->insert('end',@array);

MainLoop;

sub change_array{
    @array = qw(7 8 9 10 11 12 13 15 16);
    $list->delete(0,'end');
    $list->insert('end',@array);
}