Select Code to Download

  print $resultsArray->{tom};
or
  print $resultsArray ->Item(tom);

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