foreach (@host) { 
    my $result = 255; 
    while( $result == 255 ) {
        $result = run($_); 
    }
    mail(); 
}

sub run { 
    my $host = $_[0]; 
    my $user = 'root'; 
    my $host = 'test-1'; 
    my $cmd = '/usr/local/scripts/down.pl'; 

    return( ssh("$user\@$host", $cmd) ); 
}