#!/usr/bin/perl

use strict;

my $x = \12;
my $$y = 12;

$$y++;
$$x++;  # <<-line 9

#################
output:
Modification of a read-only value attempted at ./tst line 9.