for (my $i=1; $i <= $hoeveel; $i++) { $y = $y + 155; $z = $z +1; print < a EOT };