problem creating MARC::Field

            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},
                                         $tag->{indicator2},
                                         @subfieldlist);

Dumper($tag) returns: 
$VAR1 = {
          'tagID' => '3',
          'number' => 10,
          'subfield' => {
                          'content' => '   92034200 //r932',
                          'code' => 'a'
                        },
          'indicator2' => ' ',
          'indicator1' => ' '
        };

Right before the MARC::Field->new call, Dumper(@subfieldlist) returns:
$VAR1 = {
          'a' => '   92034200 //r932'
        };