for ($M=7, $i=1; @_ = (0,$i), $i<$M; $i++)
        { print ++$_[0],',',++$_[1],($_[1]==$M?"\n":" ") while ($_[1] < $M) }