Select Code to Download

$socket = 'socketa';
$connections{$socket} = {};
...

#to access it
$connections{$sockets{Bob}};

my $socket;
my $name = 'Bob';
...
  }
}
print "$socket is the socket for $name\n";

$connections{socket}{username} = "Bob";