foreach my $i ( 0 .. $size-1 ) { ... } foreach my $string2 { @{$arrayDocs}[ $i+1 .. $size-1 ] } { # change references to '$arrayDocs->[$j]' to '$string2' }