$from = get_username($hash{$1});

$socket_tmp->print("Nachricht von: $from\n");

sub get_username {
   foreach (my ($user_key, $user_value) = each(%hash)) {
      return $user_key and last if $user_value eq $_[0];
   }
}