#!/usr/bin/perl -w
use strict;
use Benchmark 'cmpthese';

my $count = 1000;
my @nfl = map { int( rand(1000) ) } 1..10000;
my @nin = map { int } @nfl;
my @ain = map { sprintf "%03d", $_ } @nin;
my @afl = map { my $str = sprintf "%3.12d", $_;
                '0' x (3 - index $str, '.')
                . $str;
              } @nfl;

my @rin = (int 1) x 10000;
my @rfl = (1.01)  x 10000;
my @sfl = ('z' x 16) x 10000;
my @sin = ('z' x 4)  x 10000;

cmpthese(
    $count,
    {
      f_owtdi   => sub { @rfl = sort { $a - $b }   @nfl },
      i_owtdi   => sub { @rin = sort { $a - $b }   @nin },
      f_sship   => sub { @rfl = sort { $a <=> $b } @nfl },
      i_sship   => sub { @rin = sort { $a <=> $b } @nin },
      f_alpha   => sub { @sfl = sort               @afl },
      i_alpha   => sub { @sin = sort               @ain },
    });