#! perl -w

use strict;
use Data::Dumper;

my $transaction_record_fields_method1 = [
  { 'Batch_Agency'         =>  [  1 ..   3] },
  { 'Batch_Date'           =>  [  4 ..  11] },
  { 'Batch_Type'           =>  [ 12 ..  12] },
];