Select Code to Download

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

my @stripes = grep { $_ % $stripe == 0 } 1 .. $wall_height; 

print "@stripes\n";