1;         # a readonly temporary scalar
$a =  1 ;  # $a is a rw copy of the temp scalar