Select Code to Download

$ perl -MO=Concise -e'@a = (1..3)'
...
...
5           <1> rv2av lKP/1 ->6
4              <$> const[AV ] s ->5
...

$ perl -MO=Concise -e'@a = ($x..$y)'
...
...
-                       <1> ex-rv2sv sK/1 ->6
5                          <#> gvsv[*y] s ->6
...

$ perl -MO=Concise -e'for ($x..$y) {}'
...
...
5                 <#> gvsv[*y] s ->6
6           <#> gv[*_] s ->7
...

$ perl -MO=Concise -e'for ((),$x..$y) {}'
...
...
5                             <#> gvsv[*y] s ->6
7           <#> gv[*_] s ->8
...