use JSON::XS qw( decode_json );

my @sorted =
   map { substr($_, 10) }
      sort
         map { decode_json($_)->{date} . $_ }
            @events;