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))

##</code><code>##

if ( keys %ip_discover_count )
{
	my $seedFileName = "$CC\_discover.txt";
	open my $SEED, '>', "$dir/$seedFileName" or die "Cannot open '$dir/$seedFileName' $!";

	while ( my ( $key, $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;
}