my %seen;
my @data = grep { ! $seen{$_}++ } @input;