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