#!/usr/bin/perl

use strict;
use warnings;

my @arr = ('app', 'Oracle', 'EPDMCA', 'Oracle' ,'EPZXC');
while (my($index,$value) = each @arr )
                {
                 if($value eq "Oracle")
                   {
       print "Value next to Oracle is:$arr[$index+1]\n"
                   }
                }