my $p = Net::Ping->new('udp');

foreach my $host(@hosts) {
        chomp($host);
        if ($p->ping($host)) {
                push (@uphosts, $host);
        } else {
                push (@downhosts, $host);
        }
}