while (my ($key, $value) = each %{$som->result}) {
  print "key: ", $key, " - Value: ", $value, "\n";
}