Select Code to Download

my %button_label =
(
...
    my $w = $mw->Button( -text => $button_label{$_} || $_, )->pack;
    $w->place( -x => $placement{$_}[0], -y => $placement{$_}[1] );
}