#!/usr/local/bin/perl -w
use strict;

use Data::Dumper;

my $color1 = { blue => '#00f', red => '#f00'};
my $color2 = { pink => '#f0f', yel => '#ff0'};

my %color1 = (%{$color1}, %{$color2});

print Dumper \%color1;