$ perl range4.pl
$VAR1 = [
          1,
          7,
          1,
          2,
          88,
          7,
          6,
          1,
          2,
          3
        ];