Here is one type of approach that you can use.

for( $i = 0; $i < @array; $i++){
   if( $array[$i] == $look ) {
      @out = (@array[0..($i-1)], @array[($i+1)..scalar(@array)], $arra
+y[$i]);
      last;
   }
}
[download]