Select Code to Download

#! perl -w

...
  { 'Batch_Date'           =>  [  4 ..  11] },
  { 'Batch_Type'           =>  [ 12 ..  12] },
];

# Accessing an AoA 
my $transaction_record_fields_method2 = [
...
];
print $transaction_record_fields_method3->[2]{name}, "\n";
print Dumper($transaction_record_fields_method3->[2]{range});