sub foo {
  my $x=shift;
  $x="Changed1";
  $_[0]="Changed2";
}
my $i="Orig1";
my $j="Orig2";
print "$i,$j\n";
foo($i,$j);
print "$i,$j\n";
__END__
Orig1,Orig2
Orig1,Changed2