my @values = split(',', @A);

  foreach my $val (@values) {
    d = d + 1);
     }