$ perl -MO=Deparse -e 'my @array = (1...5);'                
  my(@array) = (1, 2, 3, 4, 5);
  -e syntax OK