if (! $elements{$x}){ # we haven't seen it before
   $elements{$x}=1;
}
else{
   print "Seen it\n";
}
print join ",", keys(%elements);