http://dis.4chan.org/read/prog/1295544154 http://blogs.perl.org/users/rocco_caputo/2011/05/sleep-sort-with-poe.html

sleepsort-ae.pl

#!perl
use v5.10;
use AnyEvent;

my $cv = AE::cv;
my @timers;
for my $num (@ARGV) {
    $cv->begin; 
    push @timers, AE::timer $_, 0, sub { 
        say $num;
        $cv->end;
    }
}

$cv->recv;