Try passing your array as a ref to your sub:

my @info;
my $button_submit = $lf->Button(
    -text => 'Search',
    -command => [\&get_data, \@info],
)->pack(qw//);
[download]

my @info;
my $button_submit = $lf->Button(
    -text => 'Search',
    -command => [\&get_data, \@info, $TkWidget],
)->pack(qw//);
...
sub get_data {
    my ($info_ref, $tkwidget_ref) = @_;

    # add/delete/modify elements of $info_ref

    # call configure on the widget
    $tkwidget_ref->configure(...);
}
[download]

This is the method I use when I want to modify a data structure using a callback.

--
hiseldl
What time is it? It's Camel Time!