sub x { my $ref = \ $_[0]; $$ref ++; } x(1);