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