sub new_scalar_ref { my $x; \$x }