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