I'd either put the radio button objects into and array or hash then loop using either:

for (7..14) {
    if ($buttons[$_]->Checked ()) {
        ... indicate found and exit loop ...
    }
}
[download]

or

for my $key (keys %buttons) {
    if ($buttons{$key}->Checked ()) {
        ... indicate found and exit loop ...
    }
}
[download]

depending on what you are trying to achieve.