# Usage: LIST = RemoveDuplicates(LIST)
sub RemoveDuplicates
{
  my %seen;
  grep !$seen{$_}++, @_;
}