my %seen = ();
$seen{$_}++;
next if $seen{$_} > 1;
print;