my ($value) = ($row =~  /.*,(.*)/);
my ($val) = ($row =~ s/,[^,]*$//);