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

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

sub make_beads {
  my $color = shift;

  if ($color =~ /red|green|blue/) {
    $color .= ' sparkley';
  }
  else {
    $color .= ' shiny';
  }

  $color .= ' beads';

  return $color;
}

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

##</code><code>##

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