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

##</code><code>##

my %h = map +($_ => 1), @a;