use Internals qw(SetReadOnly);

# set constant array elements to be read-only
for (@{(D50)}) {SetReadOnly(\$_)}