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