1234567891011121314151617
#!/usr/bin/perluse 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);