for (@$list) {
  if ($val eq $_) {
    pass($test_name);
    return;
  }
}
diag "never saw [$val] in [@$list]";
fail($test_name);