foreach my$ele (@{$test->spalteninfo()})  {
    foreach my$ele2 (keys %$ele) {
      #print $ele->{$ele2},"\n";
      if ($ele2 ne "mutter") {
      print $ele2;
      }
    }
  }