use Readonly;
Readonly::Array my @D50 => (96.42, 100, 82.49);
print $D50[0], "\n";
$D50[0]++;
__END__
96.42
Modification of a read-only value attempted at ...