my $crd = $ref->{$key}{NAME};
$ref->{$key}{NAME} = $new_name;