Rather than answering your question, I'm going to help you answer your own question. Look at Data::Dumper. Add the following code to the end of your test script:

use Data::Dumper;
print Dumper(\%test); # printing a ref to a hash is easier to read tha
+n printing the hash itself...
[download]

Then look at the output (you may want to redirect to a file or pipe through less, if you have it). Hopefully that helps you understand what's going on.