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;
if ($color =~ /red|green|blue/) {
$color .= ' sparkley';
}
else {
$color .= ' shiny';
}
$color .= ' beads';
return $color;
}
my @list = map( make_beads($_), @colors), @grey_scale;
##
##
my @list = (
map { make_beads($_} }
sort { $a cmp $b }
grep { }
@colors
), @grey_scale;