Odd number of elements in hash assignment at E:\workspaces\perl\asoc.pl line 17.

Use of uninitialized value in list assignment at E:\workspaces\perl\asoc.pl line
 17.
Use of uninitialized value in string eq at E:\workspaces\perl\asoc.pl line 20.
Use of uninitialized value in concatenation (.) or string at E:\workspaces\perl\
asoc.pl line 19.
failure to read registry:
last contents of Registry Hash =