our @working;
cmpthese -20, {
   one => '@working = (); $working[$_] = $_ foreach 0 .. 100',
   ...
};