$ 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
$