grep /\Q$choice\E/, @REPORT     # OK
   and last READ_LOOP;