Red link ##
##

#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $source = CGI::param( 'source_color' );

my $color_map = {
  'red' => 'CCFF33',
};

my $destination = '#' . ( $color_map->{$source} || 'CCFF33' );