The 'do' subroutine must specifically return 'break_loop' to break a "foreach_record_do" type of loop

In previous work I enabled the feature to break out of "foreach..." loops (eg. foreach_record_do) if the 'do' subroutine that is applied on each record returned any value. Forgot thought that in Perl a subroutine always have a return value. This could create some really subtle bugs. For this the subroutine must now specifically return 'break_loop' to break the "foreach..." loop.