Create perl(hash)