my $scalar;
my $sref = \$scalar;