#!/usr/bin/perl
#
# Author: Peter Keel, 16.01.2003
#
# License: Free. Public Domain. 
# 
# Usage: Its a snippet, to be built into your own programs.
# 	 @array = uniq(@array);
# 

sub uniq {
    my %hash = map { ($_,0 ) } @_;
    return keys %hash;
}