while(my($key,$val) = each(%ret)) {
  my @parts = split(/\./, $key);
  my $id = '';
  foreach my $add (@parts) {