12345678910111213
#!/usr/bin/perluse strict;use warnings;use Data::Dumper;my %color1 = ( blue => '#00f', red => '#f00');my %color2 = ( pink => '#f0f', yel => '#ff0');%color1 = (%color1, %color2);print Dumper \%color1;;