use Internals qw[SetReadOnly];;
@a = 'a'..'c';;
SetReadOnly \@a;;
push @a, 'd';;
Modification of a read-only value attempted at ...