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