my @daten0 = qw[Blume Baum Pilz Rose Obst Gemüse];
my @daten1 = qw[1 2 3 4 5 6];
my $ref0 = \@daten0;
my $ref1 = \@daten1;