I'm assuming that you're interested just in the "report" sub-structure, so I'm only sorting that part. And I'm assuming that you want a numerical sort for ID's.
use strict;
use warnings;
use Data::Dumper;
my $json_response = {
'report' => [
{
'stat' => 1,
'timestamp' => '1360775722',
'status' => '"Active"',
'name' => '"09:15 am, 13 Feb, 2013"',
'id' => '200'
},
{
'stat' => 1,
'timestamp' => '1360775806',
'status' => '"Active"',
'name' => '"09:16 am, 13 Feb, 2013"',
'id' => '199'
}
],
'username' => 'test'
};
my @sorted = sort { $a->{id} <=> $b->{id} } @{ $json_response->{report
+} };
print Dumper \@sorted;