#!/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;

##</code><code>##

[{"ticketnum":"123","event_age":1,"visible":"Yes"},{"ticketnum":"32","event_age":2,"visible":"Yes"},{"ticketnum":"98","event_age":3,"visible":"Yes"},{"ticketnum":"45","event_age":4,"visible":"Yes"},{"ticketnum":"65","event_age":5,"visible":"Yes"},{"ticketnum":"67","event_age":6,"visible":"Yes"},{"ticketnum":"56","event_age":7,"visible":"Yes"},{"ticketnum":"123","event_age":8,"visible":"Yes"},{"ticketnum":"123","event_age":9,"visible":"Yes"},{"ticketnum":"09","event_age":10,"visible":"Yes"},{"ticketnum":"16","event_age":11,"visible":"Yes"},{"ticketnum":"32","event_age":12,"visible":"Yes"},{"ticketnum":"123","event_age":13,"visible":"Yes"},{"ticketnum":"123","event_age":14,"visible":"Yes"}]