my $ref0 = [qw(Blume Baum Pilz Rose Obst Gemüse)];
my $ref1 = [qw[1 2 3 4 5 6]];
my $ref2 = [1, 2, 3];