400 READ A(I%) FOR I% = 0 WHILE A(I%) < B

##</code><code>##

print $_ for ( @list ) while $_ < CONSTANT;

syntax error at (eval 16) line 1, near ") while"