Add your variables to the print statement, see if they are what you think they are.

print "$host1\n" unless ...

Then think about starting all your programs with 'use strict;' to see about eliminating these kinds of errors.

YuckFoo