#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %h3;
my %h2 = ( 	'eins' => 'python',
			'zwei' => 'perl',
			'drei' => 'ruby', 	);

my %h1 = (	'eins' => 'tcl',	);

%h3 = %h2;
print Dumper(\%h3);

%h3 = (%h2, %h1);
print Dumper(\%h3);