my %a = (haarschnitt => 'kurz',
auto => 'mercedes',
);
my %b = (auto => 'trabant',
augen => 'treu'
);
my %c = (%a, %b);
use Data::Dumper;
print Dumper \%c;