Select Code to Download

my $x = "variable_name";
my $value = "value";
eval "\$$x = $value";
warn $@ if $@;
print $color1;

my %config;

...
$config{color1} = "red";

print $config{color1};