for my $response ( @responses ){
  print "$response ",  $response->recv, "\n";
}