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