foreach(@namen){
     $referenz = $mw->Button(-text=>"$_",-command=> \&dosomething )-pack>;
}