push(my @array, $lanip) if ! $seen{$lanip}++;
print "@array\n";