perl hash

some hashing with perl