коннект к соккету на perl

[raxer]

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

#!/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***, все нормально работает... подскажите, плз, в чем может быть дело?

[Ale]

Во-первых в таком виде и ***2*** работать не может, бо $server[i] и проч

Во-вторых, даже если это опечатка, не мешало бы все переписать к нафигу. Есть масссса поводов

В-третьих, при таком извлечении данных к номеру порта остается прицеплен перевод строки. Убрать - chomp($proxy);