graphSocket:   

    @response = "@response" . "," . "@threads" . "@restarts";
    print "\@reponse: @response\n";
    print $new_sock "@response\n";

##</code><code>##

graphClient:

...graphing routine

        mevs_get_stats($server, $mb_portno);   # get the data from MEVS Servers
       print "\nResponse returned from $server:\n$response\n";   # print response - THIS WORKS!

       @arrays = split(",", $response);   # split queries/threads/restarts into @arrays -- DOESN'T WORK?

       print "\narray[0]: $arrays[0]\n"; # Prints Nothing??
       print "\narray[1]: $arrays[1]\n"; # Prints Nothing??
       print "\narray[2]: $arrays[2]\n"; # Prints Nothing??

                                          #
        my @queries   = split(" ", $arrays[0]);   # split queries 
        my @threads   = split(" ", $arrays[1]);   # split threads 
        my @restarts  = split(" ", $arrays[2]);   # split restarts 
        $i = 0;                                 # init $i to 0 prior to indexing the matrix

        print "\nQueries(split response):\n@queries\n";          #debug
        print "\nThreads(split response):\n@threads\n";          #debug
        print "\nRestarts(split response):\n@restarts\n";        #debug