if ($yamlfile) {
$yamlhash->{$originalid}->{'authid'} = $id;
# On récupère tous les souschamps des champs vedettes d'autorités
# we recover all subfields of the heading authorities
my @subfields;
foreach my $field ( $marcrecord->field("2..") ) {
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
-