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