>>Как передать значение переменной подпрограмме в качестве аргумента?
>>$i=10;
>>&funstion($i);
>>
>>function
>>{
>>my $i=@_;
>
>ты обращаешься к массиву в скалярном контексте, на что перл тебе честно
>возвращает количество его элементов - 1
>
>нужно:
>my $i=$_[0];
>или
>my $i=shift;
А если так:
my $i="@_";