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