my @vorname = ('Jule', 'Claudia', 'Susi'); my @haarfarbe = ('rot', 'blond', 'schwarz'); my @figur = ('schlank', 'zierlich', 'mollig'); my %merged = map{ $vorname[$_] => { hair => $haarfarbe[$_], body => $figur[$_] } }0 .. scalar @vorname - 1; print Dumper \%merged; # ausgabe $VAR1 = { 'Jule' => { 'body' => 'schlank', 'hair' => 'rot' }, 'Claudia' => { 'body' => 'zierlich', 'hair' => 'blond' }, 'Susi' => { 'body' => 'mollig', 'hair' => 'schwarz' } };