sub func_alias {
  $_[0] = 5;
}

sub func_ref {
  my $ref = shift;
  $$ref = 5;
}

my $x;
func_alias($x);
print "x = $x\n";

my $y;
func_ref(\$y);
print "y = $y\n";