DB<107> sub tst { print "ref of alias match: ".$_[0] if $_[0] == \ $_[1] ; $_[1] = 42 }

  DB<108> my $x =666; tst( \$x,$x); print "\n now x = $x"
ref of alias match: SCALAR(0x339fb20)
 now x = 42