for (my $i=0; $i < scalar @uins; $i++)

for ( my $i=0; $i < $#uins+1; $i++ )

sub xor_password 
{
    my $password = shift;
    my @xor=("\xF3", "\x26", "\x81", "\xC4", "\x39", "\x86","\xDB", "\x92", "\x71", "\xA3", "\xB9", "\xE6", "\x53", "\x7A", "\x95","\x7C");
    my $xored_password;
    my $i = 0;
    foreach my $pchar(split //,$password) {
        $xored_password.=$pchar ^ $xor[$i++];
        $i=0 if $i eq @xor; #глупо  максимальная длина пароля 8 символов
    }
    return $xored_password;
}

sub xor_password 
{
    my ( $pwd,$xor_pwd ) =( shift,undef );
 
    my @xor=( "\xF3", "\x26", "\x81", "\xC4", 
              "\x39", "\x86", "\xDB", "\x92", 
              "\x71", "\xA3", "\xB9", "\xE6", 
              "\x53", "\x7A", "\x95", "\x7C" );

    for( my $i=0;$i<length($pwd);$i++ )
    {
        $xor_pwd.= substr($pwd,$i,1)^$xor[$i];
    }
    return $xor_pwd;
}