I prefer "functional" solutions without an explicit loop:

my @array = ('app', 'Oracle', 'EPDMCA', 'Oracle' ,'EPZXC');

my @ora_succs = map { $array[$_+1] } grep { $array[$_] eq "Oracle" } 0
+..$#array;
[download]

Note that your problem is not clearly defined as you would need to specify the desired behaviour in the cases where "Oracle" is the last element or where an "Oracle" is followed by another "Oracle".