No need for global variables. You surely can do this with pass by reference -

use strict;

my $X = 1;
my $Y = 2;
my $Z = 3;

print "before: X=$X, Y=$Y, Z=$Z\n";
pass_by_ref(\$X, \$Y, \$Z);
print "after: X=$X, Y=$Y, Z=$Z\n";

sub pass_by_ref
{
    my ($x, $y, $z) = @_;
    
    ${$x} = 2;   # or $$x = 2;
    ${$y} = 3;
    ${$z} = 4;
}
[download]

And the output is -

before: X=1, Y=2, Z=3
after: X=2, Y=3, Z=4
[download]