Select Code to Download

for my $l ('a'..'d'){
  @list;
  push @list, $l;
}
print @list:  # prints qw( a a b a b c a b c d );