my @array =  split m/,/ , $_, -1;