my @merged = map{[$vorname[$_], $haarfarbe[$_], $figur[$_]]} 0 .. scalar @vorname - 1;