$ perl -le'sub x:lvalue{$a} print scalar( x="y" );'
y

$ perl -le'sub x:lvalue{$a} print scalar( (x)="y" );'
1