my @foo = qw (brown green red);
$e .= "{$_}" foreach @foo;
$e= "\$bar$e=1";
eval  $e;