Select Code to Download

$x = 5;
@a = ( $x );
$a[0] = 7;
print $x; # prints 5

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