TASK: for my $task (@tasks) { my @files = get_files_for_task($task); FILE: for my $file (@files) { # whatever next TASK if file_is_bad($file); next if file_is_complete($file); # same as next FILE } }