$group1 = 100;
for (qw/1 10 100 1000/) {
    $mw->Radiobutton(
        -text => $_,
        -variable => \$group1,
        -value => $_,
    )->pack(
        -side => 'left',
    );
}