my $a = 10;
my $b = \$a;
my $c = 4;
print "$$b ";
change($b);
print "$$b";

sub change {
    $_[0] = \$c;
}