$left_frame->Radiobutton(
        -text     => $r,
        -variable => \$radio_state,
        -value    => $r,
        -command  => [ sub { 'foo' } ],
        -anchor => 'w',
        -width => 10,
    )->pack( side => 'top',  );