sub unique {
     #2345678901234567890
     $_{$_}++for@_;keys%_
}
@unique = unique( qw( 1 2 3 4 5 1 3 5 1 3 5 ) );
print "@unique";
__DATA__
1 2 3 4 5