.....
foreach(@socks){
    $serv = shift(@socks);
    @LWP::Protocol::http::SocksChain::EXTRA_SOCK_OPTS = 
( 
Chain_Len => 1,
                                                           Debug => 1,
                                                           Random => 0,
                                                           Auto_Save => 1,
                                                           Restore_Type => 1,
                                                           Chain_File_Data => ["$serv:::5::115 b/s Sock"]);
my $req = HTTP::Request->new(
                  GET => 'http://google.ru');

     my $res = $ua->request($req) || die $!;

    $res = $res->as_string;
    print "$res \n";
    #print "$socks[1]\n";
    
}