Select Code to Download

use constant D50 => [96.42, 100, 82.49];

sub D50 () { [96.42, 100, 82.49] }

use Readonly;
Readonly::Array my @D50 => (96.42, 100, 82.49);
...
__END__
96.42
Modification of a read-only value attempted at ...

BEGIN {
    my $x = [96.42, 100, 82.49];
    *D50 = sub () { $x };
}

use constant D50 => (96.42, 100, 82.49);

$ perl -MO=Deparse -e 'use constant X=>[1]; print X->[0]++; print X->[
+0]++'
use constant ('X', [1]);
...
$ perl -le 'use constant X=>[1]; print X->[0]++; print X->[0]++'
1
2