See perlintro, use

 for my $ix ( 0 .. $#array ) { if( ... ){
    print $array[ $ix + 1 ];
[download]