sub completeResultHash{
  my %hash = shift;
  warn("completeResultHash line 631");

  my $json_str = encode_json(\%hash);
  print "$json_str";

  warn("after jason_str print");
  exit(0);
}