If $list winds up with duplicate values that match $val, your plan is in big trouble. I would change that to

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