foreach my $thisItem (@newarray){
  print Dumper $thisItem;
  print qq{\n};
  printf qq{type: %s\n}, $thisItem->type;
  exit;
}