foreach my $key ( sort { $b cmp $a } keys %tmpresults ) {
push @res, $tmpresults{$key};
}
$res[0]->{'first'} = 1;
return \@res;
-