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