Similar to one of davido's but going to one short of the end of the array as there can't be anything after "Oracle" if "Oracle" is the last element.

$ perl -E '
> @arr = qw{ app Oracle EPDMCA Oracle EPZXC Oracle };
> say $arr[ $_ + 1 ] for
>    grep { $arr[ $_ ] eq q{Oracle} } 0 .. $#arr - 1;'
EPDMCA
EPZXC
$
[download]