my @name = ("heinz", "karl", "Peter", "Anne", "heinz", "Anne"); my @geb = ("20101920", "23011929", "02121915", "06041966","20101920", "07071977"); my %hash = (); @hash{@name} = @geb; # hash slice print Dumper \%hash;