#!/usr/bin/env perl

use strict;
use warnings;

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

my $show_next;
for my $element (@array) {
  print "$element found\n" if $show_next;
  $show_next = ($element eq 'Oracle');
}