my $sock = undef;
my $name = 'Bob';
foreach my $conn (keys %connections){
   if ($connections{$conn}{'username'} eq $name){
      $sock = $conn;
      last;
   }
}
if (defined $sock){
   print "$name owns $sock\n";
}else{
   print "No soup for $name\n";
}
[download]

--perlplexer