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

##</code><code>##

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