my $v="toto";
change( $v);
print $v;
sub change { $_[0]="tata"; }