FILE:
while ( $more )
{
    LINE:
    while ( $still_more )
    {
        # ...
        last FILE if $done_with_files;
        last LINE if $done_with_lines;
    }
}