Select Code to Download

use strict;

...
my $colour = 'green';
my $hex    = eval "\$$colour"; # symbolic reference
print "$hex\n";