(undef, *a) = (\undef, \"cons");
$a = "something";
print "$a\n";
__END__
Modification of a read-only value attempted at - line 2.