my (%trec) = &hash_array(@arr);
     
  return (%trec);
}