$ perl -Mstrict -we'{my %hsh;sub set:lvalue{$hsh{shift}}}my $baz=set("foo")="bar"; print $baz,$/,set("foo"),$/'
bar
bar
$ 

##</code><code>##

$ perl -Mstrict -we'{my %hsh;sub set:lvalue{$hsh{shift}}}my $baz=set("foo")=([qw/bar baz/]); print $baz,$/,defined set("foo"),$/'
ARRAY(0x8106284)
1
$