5.004040 newWHILEOP # E (Perl_newWHILEOP)