#!/usr/bin/env perl 
use strict;
use warnings;
use Data::Dumper;

my @eventrecords = (
	{ eventid => 2667 },
	{ eventid => 2666 },
	{ eventid => 2656 }
);

for my $i (0 .. $#eventrecords) {
	$eventrecords[$i]->{line} = $i + 1;
}

print Dumper \@eventrecords;