@col = split(",",$a,-1);