local $, = ", ";
local $\ = "\n";

for ($foo,$bar) {
   print map { ++$_ } 0..4;
}

##</code><code>##

1, 2, 3, 4, 5
2, 3, 4, 5, 6