$a="a,b,c,d,"
@col = split(",",$a);