my $socket;
my $name = 'Bob';
for my $key (keys %connections) {
  if($connections{$key}{name} eq $name) {
    $socket = $_;
    last;
  }
}
print "$socket is the socket for $name\n";