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