use Sort::Key qw/ nkeysort /;

foreach (  nkeysort { $_->{id} } @{$json_response->{report}}  ) {
    # ...
}