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;