my $test_scalar = 123;

print Dumper($test_scalar);
test_hash(\$test_scalar);
print Dumper($test_scalar);

sub test_scalar {
    my $scalar_ref = $_[0];
    $$scalar_ref = "whatever";
}