while ( -1 < ( $i = firstidx { $_ == $val } @array ) )
  {
    ...
  }

##</code><code>##

  for (0 .. $#array)
  {
    next if $_ != $var;
    ...
  }