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