use List::MoreUtils qw(zip);

my $TicketRecords = [] ;

@{$TicketRecords} = map {
    { zip @TicketFields, @$_ }
}  @$data;