Select Code to Download

for $i ( @array ) {

...
           -command => [\&printme, $i],
       )->pack();
}

   $buttonhash{$i}{'object'} = $mw->Button(....)

$buttonhash{$i}{'button_text'} = 'foobar'