$ perl -e '( my @a = (1) ) = (2); print "@a\n";'
2