@lookup{@db} = ();
foreach my $elem (@in) {
  if (not exists $lookup{$elem}) { 
  push(@db, $elem);
}
}