Select Code to Download

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

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