#! perl -slw
use strict;
use Benchmark qw(:all) ;

my @a;
push @a, int (rand(100)) foreach 1..100_000;
my( @jc, @mk, @bt, @buk, @etc );

my %tests = (
    jc => sub { 
        my %unique;
        foreach my $thingy (@a) { $unique{$thingy} = 1; }
         @jc = keys %unique;
    },
    mk => sub { 
        my %unique;
        @unique{ @a} = 1;
        @mk = keys %unique;
    },
    bt => sub { 
        my %unique;
        undef(@unique{@a});
        @bt = keys %unique;
    },
    etc => sub {
        @etc = keys %{{map {$_=>1} @a }};
    },
    buk => sub {
        @buk = keys %{ +do{ my %u; undef( @u{ @a } ); \%u } };
    },
);

#cmpthese( 1, \%tests );
#print scalar @$_ for \( @jc, @mk, @bt, @buk );

cmpthese( -3, \%tests );


__END__
P:\test>324513
      Rate   etc    jc    mk   buk    bt
etc 4.75/s    --  -82%  -94%  -95%  -95%
jc  26.1/s  449%    --  -65%  -72%  -72%
mk  74.3/s 1463%  184%    --  -21%  -22%
buk 93.6/s 1870%  259%   26%    --   -1%
bt  94.6/s 1891%  262%   27%    1%    --
[download]