print "$_\n" for grep {
    state $ix = -1;
    my $cmp_idx = $ix++;
    $cmp_idx >=0 && $array[$cmp_idx] eq 'Oracle';
} @array;