genau ein paar mehr tips wären hilfreich bei hilfe
und vorweg viele ecken unden kann man hier kürzen zb

print "\n"."\n"."\n"; -> print "\n\n\n";

$z=$z+1; -> $z++;

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

du willst sicherlich numerischen vergleich ausserdem ELSE IST OPTIONAL

for ($i=1;$i<=$x;$i++) -> for my $i (1..$x)

dieses ist auch deswegen besser weil du dasnn saubere scopes der iteratorvariablen hast

if ($abbruch eq 1){}else{ -> unless ($abbruch eq 1){

probier das mal aus das programm wird wesentlich kürzer überschaubarer und fehler kann man dann auch leichter finden