open my $hosts, '<', 'hosts.txt' or die "open failed: $!";

my %hosts = map {
  chomp; split /\s+/
} <$hosts>;

close $hosts or die "close failed: $!";