Select Code to Download

#!/usr/bin/env perl       
...
splice @eventrecords, $index, 0, @recordcount;
print Dumper \@eventrecords;

$VAR1 = [
    {
...
    {
    'line' => 3
      ];

$VAR1 = [
    {
...
        'line' => 3
    },
    ];