my $columns = 6; # or 10 or 14
local $/ = ',';
my @fields = ();
while (<>) {
    push @fields, $_;
    if ( scalar @fields == $columns ) {
        print @fields;
        @fields = ();
    }
}
print @fields;