As far as I understand that, you're making a double loop.

First you call :

foreach (@host)
{
     check($_, $port);
}
[download]

and for every host you call &connect. In the connect sub you loop again thru all the hosts:

for(@host){
   $stout = run($_);
   unless($stout == 256) {
    $success++;
    last;
   }
[download]

So you probably reach your failover earlier than wanted ?

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]