# constants
use constant D50 => [96.42, 100, 82.49]; # ICC D50 XYZ

##</code><code>##

use Internals qw(SetReadOnly);

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