my @array = qw( app Oracle EPDMCA Oracle EPZXC );

print "$array[$_]\n" 
    for grep { $_>0 && $array[$_-1] eq 'Oracle' } 0 .. $#array;