use WebService::Solr;
        my $solr = WebService::Solr->new( $solrurl );
        my $response = $solr->search( $solrquery );

        my @hits = $response->docs;

        foreach my $docs ( @hits ) {
        # display
        print "Your search ($solrquery) found " . ( $#hits + 1 ) . " document(s).\n\n";
        my $test = $docs->value_for( 'test' );
        print "aId=$aId\n";

        my $doc = WebService::Solr::Document->new;
        my $newtest="ff9b7a13-e68c-3150-86cc-e3eef0f90b14";        
        $doc->add_fields(( $newtest ));
        $solr->update( $doc );
        $solr->commit;
        $aId = $docs->value_for( 'test' );
        print "newtest=$test";