in reply to begin with perl
You need to declare hash properly. Please study basic tutorial on hashes. Hash declaration is incorrect