my @subs;

        my @subdata = @{$self->{_subfields}};
        while ( @subdata ) {
                my $code = shift @subdata;
                my $text = shift @subdata;
                push( @subs, $text );
        } # for

        # And then I can do stuff with @subs