#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %color1 = ( blue => '#00f', red => '#f00');
my %color2 = ( pink => '#f0f', yel => '#ff0');

%color1 = (%color1, %color2);

print Dumper \%color1;;