for (;$i<$#Search+1;$i++) {

##</code><code>##

for my $i (0 .. $#Search) {