Select Code to Download

sub LoadNewValues
{ 
    @MyValues{qw(1 2 3)}=("hallo", "ok", "fine");
}

my $button1  = $mw->Button(-text => 'Update Values',  -command => sub{
+LoadNewValues(\%MyValues)})->pack();

...
   $href->{2} = "ok";
   $href->{3} = "fine";
}