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

my $found="";
while(my $element=shift @array){
        if ( $element eq 'Oracle' ) {
                $found=shift @array;
                last;
        }
}
printf "%s\n",$found;