sub M1 { map join(',', @_[$_..$#_], @_[0..$_-1]), 1..$#_ }