$,=", "; my $i; print $i++, $i, $i++, $i, $i++, $i;