sub makewidget{
   $counter=shift;
   ${widget."$counter"}=$mw->Button(
               -command=>sub{configurewidget($counter)}
               )->pack();
}