for $i ( @array ) {

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