#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);

use Sort::Key::Radix;
use Sort::Key;

my @data = map { int(50 * rand) } 0..2_000_000;

cmpthese -1, { builtin => sub { use integer; my @s = sort { $a <=> $b } @data },
               sk => sub { my @s = Sort::Key::usort @data },
               radix => sub { my @s = Sort::Key::Radix::usort @data }
             };