While I can find the Element Oracle What I need to do is to shift to the next Element and print this out instead

try this:

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;
[download]