for my $number (1 .. $mal) { ... }