my @sockets = grep { $connections{$_}{username} eq 'Bob' } keys %connections;