LOOP_ONE: while (<>) { next unless $condition_one; last LOOP_ONE; } LOOP_TWO: while (<>) { next unless $condition_two; last LOOP_TWO; }