sub change {
    my $arr = shift;
    $_++ for @$arr;
}
my $x = 1;
my $y = 2;

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