#!/usr/bin/perl
use Benchmark qw( timethese cmpthese );

use constant SIZE  => 6_000;
use constant COUNT => 500;

my $count = shift || COUNT;
my $size  = shift || SIZE;

my @source = map { int( rand($size) ) } 1 .. $size;

cmpthese(
    $count,
    {
        sort_first => sub {
            my @sorted = sort @source;
            my $le     = undef;
            my @uniq;
            for (@sorted) {
                if ( $le != $_ ) {
                    $le = $_;
                    push @uniq, $_;
                }
            }
        },
        cull_first => sub {
            my %seen;
            my @uniq = grep { !$seen{$_}++ } @source;
            my @sorted = sort @uniq;
          }
    }
);

exit 0;

__END__