Great catch! ++

1. You can get rid of all 'my'
2. You don't need $c = $_, either
3. You don't need an array $::$l, just use a scalar $::

Actually, this was because I was calling the subs outside the for on the earlier tries. To use the closures as closures, the 'my's and the $c = $_ are necessary, but in this code there isn't properly a closure. I'll try to play a little more with closures and some ideas I'm brainstorming to a second try...