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

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