Select Code to Download

my @colors = qw(red yellow green cyan blue magenta);
my @grey_scale = qw(white grey black);

my @list = map "$_ beads", @colors, @grey_scale;

my @list = map( "$_ beads", @colors ), @grey_scale;

my @list = ( map { "$_ beads" } @colors ), @grey_scale;

sub make_beads {
  my $color = shift;
...
}

my @list = map( make_beads($_), @colors), @grey_scale;

my @list = (
  map  { make_beads($_} }
...
  grep { <something> }
  @colors
), @grey_scale;