my $radvar='rot';

$mw->Radiobutton(-text => 'rot', -variable=>$radvar, -value=>'rot', -anchor=>'w')->pack(-fill,'x');
 $mw->Radiobutton(-text => 'gelb', -variable=>$radvar, -value=>'gelb', -anchor=>'w')->pack(-fill,'x');