print "$array[$_]\n" for indexes {
    state $prev    = '';
    my    $compare = $prev;
    $prev = $_;
    $compare eq 'Oracle';
} @array;