sub quadrat {
   $zahl = $zahl*$zahl;	§§
   # ohne my $zahl -> endlos
   print "Ergebnis   $zahl\n";
}
for ( $zahl = 5; $zahl >= 1; $zahl--) {
	quadrat;
}