while (my ($variable_name, $variable_value ) = each %params) {
	print "Variable name = $variable_name/n Variable value = $variable_value\n\n";
}