@rray=(1,2,2,3,3,3,4,4,4,4);
for(@rray) {
     $seen{$_}++;
}
@nodups=keys %seen;
print "@nodups\n";