to tomyhero

    my @results = (); 
    while ( my ($response, $id) = $async->wait_for_next_response ) { 
        warn "Getting $id";
        push @results, +{ id => $id, content => $self->parser->parse( $response->content) };
    }   
    my @sorted_results =  sort { $a->{"id"} cmp $b->{"id"} } @results;