4.13 テストを最初にパスする要素を見つける

# 方法1
# 条件にマッチする要素が見つかったらlastを呼び出してループを抜ける。
my ($match, $found, $item);
foreach $item (@array) {
  if (CRITERION) {
    $match = $item; #要素を保存
    $found = 1;
    last;
}
if ($found) {
  ## $matchに対する処理を書く
} else {
  ## マッチしなかった場合の処理を書く
}

# 方法2
# List::Utilを使う
use List::Util qw(first);
$match = first { CRITERION } @list;