Есть ли условный способ условно «последнего» из этого Perl Loop?

Не совсем знание Perl, я улучшил сценарий Perl с помощью с помощью дружеской поисковой системы.

Я нахожу, что мне нужно вырваться из петли, установив флаг, если условие сбьется:

foreach my $element (@array) {
    if($costlyCondition) {
        $flag = 1;
        last;
    }
}

Я знаю, что приятнее способ использовать «последний» - это что-то подобное:

foreach my $element (@array) {
    last if ($costlyCondition);
}

, конечно, это Значит, в то время как я могу наслаждаться синтаксическим сахаром, я не могу установить свой флаг внутри петли, что означает, что мне нужно оценить $ CostlyCondition

Есть ли чистый способ сделать это?