my $next_flag;
for (@foo) {
    $next_flag = 1;
    # my $next_flag = 1; # scope problem
    # do stuff
    $next_flag = 0;
}
continue {
    warn 'nexted!' if $next_flag;
    # go on
}