map { print $_,$/ } @origcols;