my $count = 0;	
while (my($key, $value) = each(%ip_discover_count) and $count == 0)
{
        $count++;
}
if ($count > 0)
{
	my $seedFileName = "$CC\_discover.txt";
        open (SEED,">$dir/$seedFileName");

	while ((my $key, my $value) = each(%ip_discover_count))
	{
		$ip = &trim($key);
		my $snmp_read = &trim($ip_discover_snmp{$key});
		print SEED "$ip\t\$snmp_read\n";
	}
	close (SEED);
}