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