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