Select Code to Download

sub unique {
        my $self=shift;
...
        map { %tmp{$_}=1 } @_;
        return keys %tmp;
        }

$o->unique(@array); # with $o my blessed object