Perl AnyEvent: How to make async calls in a loop - oh, this seems to work.

gistfile1.pl

use AnyEvent;
use AnyEvent::Util qw"run_cmd"; 

sub f { 
  my($x) = @_; 
  warn "got (($x))\n";
}; 

for my $n (1..10) {
  my $rand = int(rand(10));
  $run = run_cmd "sleep $rand; echo $n", ">", \&f;
  #$run->recv;
}
$run->recv;