foreach (  @{$json_response->{report}}  ){
  
  my %report;
  $report{status} = $_->{status};
  $report{id}    = $_->{id};
  
  print "CGGSID: $report{id}\n";
  print "Status: $report{status}\n\n";

}