use strict;

my $red    = '#ff0000';
my $green  = '#00ff00';
my $blue   = '#0000ff';

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