$x = 5; foo( $x ); print $x; # prints 7 sub foo { $_[0] = 7; }