Select Code to Download

sub change {
    my $arr = shift;
...

change([ $x, $y ]);
print "($x) ($y)\n";

sub change {
    my $arr = shift;
    $$_++ for @$arr;
...
my $y = 2;
change([ \$x, \$y ]);
print "($x) ($y)\n";