........
my $lang = 'de';   # default-Sprache
my $btntext;
update_window();   # Texte in default-Sprache
........
my $mybutton = $mw->Button(
    -textvariable => \$btntext,
)->pack();
........
sub update_window {   # Texte in gewählter Sprache
    $btntext = $map->{$lang}->{btn_click_me};
} # /update_window