my $left_frame = $main->Frame;

my $quit_button = $left_frame->Button(
    -text    => 'quit',
    -command => [ $main => 'destroy' ]
);

$quit_button->pack( side => 'top' );
foreach my $r (@radio_values) {
    $left_frame->Radiobutton(
        -text     => $r,
        -variable => \$radio_state,
        -value    => $r,
        -command  => [ sub { 'foo' } ],
        -anchor =>'e',

        ,
    )->pack( side => 'top', );
}