sub my_sub { my $scalar_ref = $_[0]; # note the $$: $$scalar_ref = 'new value'; } # and call it: my_sub(\$variable); # another way, since @_ is an alias: sub my_sub_2 { $_[0] = 3; } my $a = 1; my_sub_2($a); print $a; # prints 3