$ perl -wMstrict
*a = \substr(undef,0);  # alias via glob
$b = $a;                # copy
$a = 'x';               # assignment
__END__
Use of uninitialized value in scalar assignment at - line 2.
Modification of a read-only value attempted at - line 3.