foreach my $key (keys %kurven) {
   print "$key\n";
}