sub hashrassq {
  my ($hashref, $value) = @_;
  foreach (keys %$hashref) {
     return $_ if $$hashref{$_} eq $value;
  }
}