sub uniqueElements {
  my ($item, %seen, @result);

  foreach $item (@_) {
    push(@result, $item) unless $seen{$item}++;
  }

  return @result;
}