perl associate array or hashtable