Shell Programming and Scripting

# ./test.pl host1

Trying to connect host1...
Logging in.....user1=>pass1
Login sucess


But when run with host2, it fails with 3 logins,  which should be passed with the second set of login credentials.  See below:
# ./test.pl host2

Trying to connect host2...
Logging in.....user1=>pass1
  Error: unable to login with user: user1=>pass1

Trying to connect host2... 
Logging in.....user2=>pass2
  Error: unable to login with user: user2=>pass2
  
Trying to connect host2...
Logging in.....user3=>pass3
  Error: unable to login with user: user3=>pass3

Error: Failed to login to host2

my @logins = ("user1 pass1", "user2 pass2", "user3 pass3");
my $ok = 0;
while ( $ok == 0 ) {
foreach (@logins) { 
my ($user, $pass) = split('\s+'); 
print "\nTrying to connect $host...\n"; 
$ssh2->connect($host);
print "Logging in.....$user=>$pass\n";
unless ( $ssh2->auth_password($user,$pass) ) {
print "  Error: unable to login with user: $user=>$pass\n";
next;
} else {
print "Login sucess\n";
$ok = 1;
last;
}
}
# failed to login
if ($ok == 0) {
print STDERR "\nError: Failed to login to $host\n";
exit 2;
}