You doen't provide the code you're using to create your AoAoH; but I can suggest a debug approach:

  use Data::Dumper;
  print Dumper($kid[0]);
[download]

This will tell you what perl thinks you've created. --Dave