RosettaCodeData/Task/Concurrent-computing/Perl/concurrent-computing-2.pl

use feature qw( say );
use Coro;
use Coro::Timer qw( sleep );

$_->join for map {
    async {
        sleep rand;
        say @_;
    } $_
} qw( Enjoy Rosetta Code );