$ perl -le 'my $s = ("111","bbb"); print $s'
bbb
$ perl -le 'my $s =  "111","bbb" ; print $s'
111
$ perl -MO=Deparse,-p -e 'my $s = ("111","bbb")'
(my $s = ('???', 'bbb'));
$ perl -MO=Deparse,-p -e 'my $s =  "111","bbb" '
((my $s = '111'), '???');