use Win32::OLE qw(in);
foreach my $key (in $resultsArray) {
  print $key, " => ", $resultsArray->{$key}, "\n";
}