# be included in the authority record. Strip those before creation

                    # be included in the authority record. Strip those before creation

                    next unless @auth_subfields; # Don't try to create a record if we have no fields;

                    next unless @auth_subfields; # Don't try to create a record if we have no fields;

                    my $last_sub = pop @auth_subfields;

                    my $last_sub = pop @auth_subfields;

                    push @auth_subfields, $last_sub;

                    push @auth_subfields, $last_sub;

                    my $authfield = MARC::Field->new( $authority_type->auth_tag_to_report, '', '', @auth_subfields );

                    my $authfield = MARC::Field->new( $authority_type->auth_tag_to_report, '', '', @auth_subfields );

                    $marcrecordauth->insert_fields_ordered($authfield);

                    $marcrecordauth->insert_fields_ordered($authfield);

        my $code    = $subfields[$i]->[0];

        my $code    = $subfields[$i]->[0];

        my $code_re = quotemeta $code;

        my $code_re = quotemeta $code;

        my $value   = $subfields[$i]->[1];

        my $value   = $subfields[$i]->[1];

        next unless $subfields =~ qr/$code_re/;

        next unless $subfields =~ qr/$code_re/;

        if ($first) {

        if ($first) {

            $first   = 0;

            $first   = 0;