>perl -le"local(${print('a'), 'x'}) = ${print('b'), 'x'};
b
a