foreach (0..$#{$gXMLDoc->{head}->{meta}})
{
  print $gXMLDoc->{head}->{meta}[$_]->{content},"\n";
}