while(get_next("erghash")){
my $cnt_ds; # Zähler als lokal deklarieren
# eindeutige Wertliste generieren (ohne zeitaufw. Vergleich)
# Feldvariablenwert als Schlüssel und Zähler als Wert in nem Hash
# (dadurch werden doppelte/mehrfach vorh. Werte einfach im Hash
# überschrieben und übrig bleibt jeder Wert nur einmal als Schlüssel
$cnt_ds++; # Zähler bei jedem Schleifendurchlauf um eins erhöhen
$h_ip{$IP} = $cnt_ds; 
}
# Hier dann eifach die Anzahl als Rückgabewert der Funktion keys 
# in ne Variable schreiben
$anzahl = keys(%h_ip);
out $anzahl;

@l_IPs = keys %h_ip;