grep /\Q$choice\E/, @REPORT && do {
    last READ_LOOP;
};

##</code><code>##

grep(/\Q$choice\E/, @REPORT) && do {
    last READ_LOOP;
};

##</code><code>##

user@unforgiven:~$ perl -MO=Deparse -e 'grep /\Q$choice\E/, @REPORT && do {
    last READ_LOOP;
};'
grep /\Q$choice\E/, @REPORT && do {
    last READ_LOOP
};
-e syntax OK

user@unforgiven:~$ perl -MO=Deparse -e 'grep( /\Q$choice\E/, @REPORT) && do {                  
    last READ_LOOP;
};'
if (grep /\Q$choice\E/, @REPORT) {
    last READ_LOOP;
}
-e syntax OK