my connectionStatus = "down";
@listOfServers=("abc","def","lmn","stu","xyz");
while (connectionStatus eq "down")
{
    my $randomServer = $listOfServers[rand @listOfServers];
    #Try to connect to $randomServer
    if ($connect == 1)
    {
        connectionStatus = "up";
    }
    else
    {
        connectionStatus = "down";
    }
## Need to Delete the server in $randomServer from @listOfServers and pick one randomly and try again ##
}