The above code looks fine to me. But in this sort of case, I would have used an "if" statement to, in my opinion, further clarify things, this is a matter of sytle:

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

I don't know the whole loop structure, but as a matter of style, I would have put the ending condition up in the while(..) or whatever loop if practical.

I agree with ikegami, why be stingy with ()? They are super cheap (insignificant compile difference) and make things clear.