@foo = (); 
$bar = \@foo; 
($baz = $bar) 
or warn("assigning a (reference to an empty list) to another scalar is false");