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);
}

##</code><code>##

The array is: sean connery george lazemby roger moore timothy dalton pierce brosnan

Element number 0
The key is: sean
The value is: connery
In the function, the key is sean and the value is connery
The hash at the beginning is: HASH(0x1bfd938)
The hash at the end is: HASH(0x1bfd938)seanconnery
The hash at cycle 0 is: HASH(0x1bfd938)seanconnery
The actual value for "sean" is: connery

Element number 1
The key is: george
The value is: lazemby
In the function, the key is george and the value is lazemby
The hash at the beginning is: HASH(0x1bfd938)
The hash at the end is: georgelazembyHASH(0x1bfd938)
The hash at cycle 1 is: HASH(0x1bfd938)georgelazemby
The actual value for "george" is: lazemby


...
The hash is not functional, in fact the value for "sean" is: 
(that was an empty result)