I think what you REALLY want to do is change your while loop to a for loop ... while(@array){} doesn't set your default iterator ($_) to each element of @array (and it looks like that's what you want it to do), but a for loop will.

Update: in this version:

while($s >= $a) {
     $dbh->do( "INSERT INTO webpages_data VALUES('$a', '$_', '$text[$v
+]', NULL)");
               
     $a++;
     $v++;            
     }
[download]

... I'm not even sure what value $_ might have during each iteration.

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );
[download]