my %counts;
my @uniqueIPs = grep !$counts{$_}++, @ipAddresses;

for my $ip (sort @uniqueIPs) {
   print("$ip ($counts{$ip})\n");
}