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