my %ipadressen_no_dup = ();
foreach my $key ( @ipadressen ) {
    $ipadressen_no_dup{$key}++; # erhöht den Zähler immer wenn dieser Schlüssel gefunden wird
		#print "$key\n";
		}
my @ip_gezaehlt = %ipadressen_no_dup;

foreach (@ip_gezaehlt) {
			$_ =~ m/(\d+.\d+.\d+.\d+)(\d+)/;
			print "$1: $2\n";
			}