Why use $result at all

while (run($_)==255) {
  shift @hosts;
}
[download]