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

##</code><code>##

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(...);
}