sub reorderSubfields2 {
    my ($field) = @_;
    my @subfields;
    my @order = qw/1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z/;
    foreach my $key (@order) {
        foreach my $subfield ($field->subfield($key)) {
            push @subfields, $key, $subfield;
        }
    }
    my $newfield = new MARC::Field($field->tag(), $field->indicator(1), $field->indicator(2), @subfields);
    return $newfield;
}