sub bar { my $ref=shift; $$ref='changed' }
bar(\$j);