my %modHash #It holds values
getHash({"pdtName"=>"$pdtName","modHash"=>\%modHash});
sub getHash{
	my $pdtName= $_[0]{pdtName};
	my %moduleHash= $_[0]{modHash};
	while (($key, $value) = each(%moduleHash)){ 			print "key:".$key.",Value:".$value."\n";     		
      }
}