for $i ( @array ) {

    $buttonhash{$i} = $mw->Button(
           -text => "Button $i", 
           -command => [\&printme, $i],
       )->pack();
}

##</code><code>##

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

##</code><code>##

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