........
my $lang = 'de';   # default-Sprache
my %widgetinfo;
my @allwidgets;
........
my $mybutton;
my $btntxt = $map->{$lang}->{btn_click_me};
$mybutton = $mw->Button(
    -textvariable => \$btntxt,
)->pack();
$widgetinfo{$mybutton} = [\$btntxt, 'btn_click_me'];
push @allwidgets, $mybutton;
........
sub update_window {
    foreach my $mybutton (@allwidgets) {
        my ($txtvar_ref, $txtname) = @{$widgetinfo{$mybutton}};
        $$txtvar_ref = $map->{$lang}->{$txtname};
    }
} # /update_window