$hashes[$_-1]={} for (@a);