push(my @array, $lanip) if ! $seen{$lanip}++;
#print "@array\n";
my %hash   = map { $_, 1 } @array;
 my @unique = keys %hash;
print "@unique\n";
##</code><code>##

192.169.30.0






192.169.31.0


192.169.32.0
192.169.72.0