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