# use strict, etc... OUTER: while ( 1 ) { # something1 last OUTER if ...something2...; # something3 INNER: while ( my $dir = readdir( $dh ) ) { # something4 next INNER if ...something5...; # something6 } next OUTER if ...something5...; # something7 }