while(my ($param_key, $param_value) = each(%{$args->{parameter_set}})) {
                $param_string.= "$param_key => $param_value,";
        }

print "\n$param_string\n";