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