for (1..$#array) {
  @array[$_-1,$_] = @array[$_,$_-1] and last if $array[$_] == $value;
}