#!/usr/bin/env perl
use warnings;
use strict;
use Data::Dumper;
binmode STDOUT, ":utf8";
use utf8;
use JSON;

my @records;
my $json;

	{
		local $/; 
		open my $fh, "<", "reddataout.json";
		$json = <$fh>;
		close $fh;
	}
	@records = @{decode_json($json)};
	#sort the array @records and assign line number #
	@records = sort{ $b->{event_age} <=> $a->{event_age} } @records;
	for my $i (0 .. $#records) {
		$records[$i]->{line} = $i + 1;
	}
	#End# 
	
	print Dumper \@records;