Select Code to Download

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

my @array;

...
}

print "@array\n";