foreach my $client_server (keys %client_servers_host_info)
{
  srand;
  my $extra = int(rand(256));
  warn $host_server_config{username} . $extra . "\n";

  $client_servers{$client_server} =
    dacts (     $host_server_config{username} . $extra,
                $host_server_config{password},
                $client_server,
                $client_servers_host_info{$client_server}       );
  $counter++ ; warn $counter;
}