IMHO.WS - коннект к соккету на perl

имеется следующий скрипт:

Код:

#!/usr/bin/perl



use IO::Socket; 

use POSIX;



  $proxy_list="proxies.txt";

  $number=10;



open(file, $proxy_list) or die print "$!\n"; 

@proxies=<file>;

$len=@proxies;



$i=1;

foreach $proxy (@proxies){

        

        $proxy=~/(:)/;

        $server[$i]=$`;

        $proxy=~/(:)/;

        $port[$i]=$';

        $i++;

        }

        



        

$n=1;

        

for ($i=1;$i<$number;$i++){



$ser="$server[$i]"; $po="$port[$i]";#(***1***)

#$ser="24.147.213.92"; $po=444;   (***2***)



$socket=IO::Socket::INET->new(        PeerAddr => "$server[i]",

                        PeerPort => $port[i],

                        Photo => tcp) 

or die "Невозможно подключиться к серверу $server[2]:$port[2]";

он читает список проксиков из прокси листа и пытается приконнектится к каждому по очереди... так вот.
если ip адрес и порт брать из полученного массива, как в ***1***, то постоянно вылетает ошибка коннекта к серверу...
если же ip и порт указывать напряму как в ***2***, все нормально работает... подскажите, плз, в чем может быть дело?