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

##</code><code>##

$x = 5;
foo( $x );
print $x;  # prints 7

sub foo {
    $_[0] = 7;
}