my @line=split(/,/,$_);