ae-sleep-sort.pl

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

use Data::Dumper;

sub sleep_sort {
    my @args = @_;
    my $cv = AnyEvent->condvar;
    my @output;

    foreach my $value(@args) {
        my $w;
        $w = AnyEvent->timer(
            after => $value / 10,
            cb    => sub {
                push @output, $value;
                undef $w;
                $cv->send();
            },
        );
    }

    $cv->recv() for @args;
    return @output;
}

print Dumper([ sleep_sort @ARGV ]);