<?xml version="1.0" encoding="windows-1252"?>
<node id="976300" title="Re: Find Element of array but use the next Element" created="2012-06-14 16:37:51" updated="2012-06-14 16:37:51">
<type id="11">
note</type>
<author id="163790">
dsheroh</author>
<data>
<field name="doctext">
Just for the sake of Another Way To Do It, here's one that doesn't have to look at array indexes:
&lt;c&gt;
#!/usr/bin/env perl

use strict;
use warnings;

my @array = qw( app Oracle EPDMCA Oracle EPZXC );

my $show_next;
for my $element (@array) {
  print "$element found\n" if $show_next;
  $show_next = ($element eq 'Oracle');
} 
&lt;/c&gt;</field>
<field name="root_node">
976239</field>
<field name="parent_node">
976239</field>
</data>
</node>
