my @newarray= split (/,/,$data);