my %uniq;
my @data = qw(3328B0Z 3328B0Z 1122222 8888888T 3328B0Z 1122222 8888888T);
$uniq{$_}++ for @data;
my @uniq_data = keys %uniq