ae-sleep-sort.pl

#!perl -w
use common::sense;
use AnyEvent;

use Data::Dumper;

sub sleep_sort {
    my @args = @_;
    my @output;

    my $cv = AnyEvent->condvar;

    for my $value (@args) {
        $cv->begin;
        my $w; $w = AE::timer $value, 0, sub {
            push @output, $value;
            undef $w;
            $cv->end;
        }
    }

    $cv->recv;
    return @output;
}

print Dumper([ sleep_sort @ARGV ]);