und was willst du mit:

if ($w eq 0){$k=10000;}else{} ?

du willst doch in wirklichkeit die k-schleife verlassen oder?