use 5.012;
use List::MoreUtils qw(part zip);

my @vorname = ('Jule', 'Claudia', 'Susi');
my @haarfarbe = ('rot', 'blond', 'schwarz');
my @figur = ('schlank', 'zierlich', 'mollig');

my @multi_array = do {
  my $i = 0;
  part { $i++ / 3 } zip @vorname, @haarfarbe, @figur;
};

use Data::Dumper;
print Dumper \@multi_array;