I like Sort::Key for this:

use Sort::Key qw/ nkeysort /;

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