for my $vh(sort @hosts)  {
  for my $vl(@logins)     {
    for my $vp(@pwd)        {
      print "Escaneando host $vh con usuarios $vl password $vp\n";

      #PREPARAMOS CONEXION SSH
      my $ssh = Net::OpenSSH->new($vh, user => $vl, password => $vp) or warn "Host $vh caido\n";
      $ssh->error and die "SSH connetion failed: " . $ssh->error;
      #print "$ssh->error";
....