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

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