# irgendwo oben in deinem Skript, gleich nach strict und warnings:
use Data::Dumper qw/Dumper/;

# später, nach der Schleife:
print Dumper \%ipadressen_no_dup;