perl -e'my $sref = *foo{SCALAR}; $$sref .= "text"; print "$sref = $$sref\n";'