ranginui

            my @subfieldlist;
            SUBS:
            for my $sub ($tag->{subfield}){
                my %rec;
                $rec{$sub->{code}} = $sub->{content};
                push @subfieldlist,%rec;
            }
            my $tagnum = sprintf "%03d",$tag->{number};
            my $field = MARC::Field->new($tagnum,
                                         $tag->{indicator1},