use strict;

my(@myArray);
my(%myHash);
my($myLoop, $key, $val, $myTemp, $i);

@myArray = qw( sean connery george lazemby roger moore timothy dalton pierce brosnan );
$myLoop = 5;
print("The array is: @myArray\n");

for($i = 0; $i < $myLoop; $i++){
	print("\nElement number $i\n");
	$key = shift(@myArray);
	$val = shift(@myArray);
	print("The key is: $key\nThe value is: $val\n");
	%myHash = &makeHash($key, $val, \%myHash);
	print("The hash at cycle $i is: ");
	print %myHash;
	$myTemp = $myHash{$key};
	print("\nThe actual value for \"$key\" is: $myTemp\n");
	}
	
print("\nThe hash is not functional, in fact the value for \"sean\" is: ");
$key = "sean";
$myTemp = $myHash{$key};
print $myTemp;
print("\n(that was an empty result)\n");

	
sub makeHash {
	my($key);
	my($val);
	my(%subHash);
	$key = shift @_;
	$val = shift @_;
	%subHash = shift @_;
	print("In the function, the key is $key and the value is $val\n");
	print("The hash at the beginning is: ");
	print %subHash;
	$subHash{$key} = $val;
	print("\nThe hash at the end is: ");
	print %subHash;
	print("\n");
	return(%subHash);
}