1 2 3 4
local ($, , $\) = (', ', "\n"); # for print my @array = (0..6); for my $i (@array) { $i++ }; print @array;
1
1, 2, 3, 4, 5, 6, 7