Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    #End# 
    
    print Dumper \@records;

[{"ticketnum":"123","event_age":1,"visible":"Yes"},{"ticketnum":"32","
+event_age":2,"visible":"Yes"},{"ticketnum":"98","event_age":3,"visibl
+e":"Yes"},{"ticketnum":"45","event_age":4,"visible":"Yes"},{"ticketnu
+m":"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,"visib
+le":"Yes"},{"ticketnum":"16","event_age":11,"visible":"Yes"},{"ticket
+num":"32","event_age":12,"visible":"Yes"},{"ticketnum":"123","event_a
+ge":13,"visible":"Yes"},{"ticketnum":"123","event_age":14,"visible":"
+Yes"}]