for my $obst (@obstsorten) {
    print "Obst: $obst\n";
}