#!/usr/bin/perl
	# your code goes here
 
	%hash = (a=>1,b=>2, c=>3, d=>4);
	@arr = ();
	foreach(keys %hash) {
		# Making a hash
		my %temp = ('key' => $_, 'value' => $hash{$_});
 
		# Getting its reference
		$hashref = \%temp;
 
		# Push the reference of hash in the array
		push( @arr, $hashref);
 
		# Print it to know its value
		print $_.' '.$hash{$_}."\n";
	}
 
	foreach(@arr) {
		# Deref the hash
		%h = %{$_};
 
		foreach(keys %h) {
			print 'hash mapkey: '.$_.' mapvalue: '.$h{$_}."\n";
		}
		print "\n";
	}

CSMhL3Vzci9iaW4vcGVybAoJIyB5b3VyIGNvZGUgZ29lcyBoZXJlCgkgCgklaGFzaCA9IChhPT4xLGI9PjIsIGM9PjMsIGQ9PjQpOwoJQGFyciA9ICgpOwoJZm9yZWFjaChrZXlzICVoYXNoKSB7CgkJIyBNYWtpbmcgYSBoYXNoCgkJbXkgJXRlbXAgPSAoJ2tleScgPT4gJF8sICd2YWx1ZScgPT4gJGhhc2h7JF99KTsKCQkgCgkJIyBHZXR0aW5nIGl0cyByZWZlcmVuY2UKCQkkaGFzaHJlZiA9IFwldGVtcDsKCQkgCgkJIyBQdXNoIHRoZSByZWZlcmVuY2Ugb2YgaGFzaCBpbiB0aGUgYXJyYXkKCQlwdXNoKCBAYXJyLCAkaGFzaHJlZik7CgkJIAoJCSMgUHJpbnQgaXQgdG8ga25vdyBpdHMgdmFsdWUKCQlwcmludCAkXy4nICcuJGhhc2h7JF99LiJcbiI7Cgl9CgkgCglmb3JlYWNoKEBhcnIpIHsKCQkjIERlcmVmIHRoZSBoYXNoCgkJJWggPSAleyRffTsKCQkKCQlmb3JlYWNoKGtleXMgJWgpIHsKCQkJcHJpbnQgJ2hhc2ggbWFwa2V5OiAnLiRfLicgbWFwdmFsdWU6ICcuJGh7JF99LiJcbiI7CgkJfQoJCXByaW50ICJcbiI7Cgl9