$ perl -MList::Util=reduce -MO=Concise,-exec -e'reduce { "..." } @a'
...
4  <0> pushmark sRM
5  <$> anoncode[CV ] lRM
6  <1> refgen KM/1
7  <#> gv[*a] s
8  <1> rv2av[t4] lKM/1
9  <#> gv[*reduce] s
a  <1> entersub[t5] vKS/TARG,1
...

{15} eric@dev-eric [~/work/p4/src/main/CC]
$ perl -MList::Util=reduce -MO=Concise,-exec -e'&reduce(sub { "..." }, @a)'
...
4  <0> pushmark sRM
5  <$> anoncode[CV ] lRM
6  <1> refgen lKM/1
7  <#> gv[*a] s
8  <1> rv2av[t4] lKM/1
9  <#> gv[*reduce] s
a  <1> entersub[t5] vKS/TARG,AMPER,1
...