my $foo;

for (qw/eenie meenie minie mo/) {
    $mw->Radiobutton(
         -text => $_,
         -command => sub { print "$_ selected\n" },
#        -deselect_command => sub { print "$_ unselected\n" },
         -variable => \$foo,
         -value => $_
    ) ->pack( -side => 'left');
}