perl -lE "@capitals=(); $,=', '; print scalar(@capitals), $#capitals, $#capitals ? 'Lots' : 'One';
0, -1, Lots

perl -lE "@capitals=qw(London); $,=', '; print scalar(@capitals), $#capitals, $#capitals ? 'Lots' : 'One';
1, 0, One

perl -lE "@capitals=qw(London Paris); $,=', '; print scalar(@capitals), $#capitals, $#capitals ? 'Lots' : 'One';
2, 1, Lots