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