foreach (@CHOICE) {
        $_ or next;
        if (/.../) { ... }
    }