Select Code to Download

(1,(2,3,(4,5)),6,7)

>perl -MO=Concise -e"@a=(1,(2,3,(4,5)),6,7)"
j  <@> leave[1 ref] vKP/REFC ->(end)
...
h           <1> rv2av[t2] lKRM*/1 ->i
g              <#> gv[*a] s ->h
-e syntax OK

>perl -E"say for (1,(2,3,(4,5)),6,7)"
1
...
5
6
7