my $value= ${ uc join "_", @$reg_spec{ qw( device reg field ) } };