~/devel/Perl/snippets$ cat three_dots.pl 
use strict;
use warnings;

my @arr = 1 ... 10;
print "@arr";
~/devel/Perl/snippets$ perl -MO=Deparse three_dots.pl 
use strict;
use warnings;
my(@arr) = 1..10;
print join($", @arr);
three_dots.pl syntax OK