my $wall_height = 50;
my $stripe = 11;

my @stripe = map {$_ * $stripe} (1..int($wall_height/$stripe));

print "@stripe";

=prints
11 22 33 44
=cut
[download]