#!/usr/bin/perl -w
use strict;
use Benchmark;
my(@sorted, @unsorted);
push @unsorted, rand 10000 for 1 .. 1000;

timethese(-3, {
	native => sub { @sorted = sort @unsorted },
	string => sub { @sorted = sort { $a cmp $b } @unsorted },
	reversed_string => sub { @sorted = sort { $b cmp $a } @unsorted },
    numerical => sub { @sorted = sort { $a <=> $b } @unsorted },
    reversed_numerical => sub { @sorted = sort { $b <=> $a } @unsorted },
	messed_up=> sub { @sorted = sort { my $cmp = $a <=> $b; $cmp } @unsorted },
});