$ perl -MO=Concise -e'for ($x..$y) {}'
...
7        <{> enteriter(next->9 last->c redo->8) lKS ->a
-           <0> ex-pushmark s ->3
-           <1> ex-list lK ->6
3              <0> pushmark s ->4
-              <1> ex-rv2sv sK/1 ->5
4                 <#> gvsv[*x] s ->5
-              <1> ex-rv2sv sK/1 ->-
5                 <#> gvsv[*y] s ->6
6           <#> gv[*_] s ->7
...