Select Code to Download

 print Dumper $json_response;  

$VAR1 = {
...
         'username' => 'test'
};

 
foreach (  @{$json_response->{report}}  ){
  
...
  print "Status: $report{status}\n\n";

}