$ perl -wle 'my @a = 2; print @a'
2
$ perl -wle 'my @a = scalar 2; print @a'
2
$ perl -wle 'my @a = 2+2; print @a'
4