Select Code to Download

my $transaction_record_fields = {
  'Batch_Agency'         =>  { COL => 0, POS => [  1 ..   3] },
  'Batch_Date'           =>  { COL => 1, POS => [  4 ..  11] },
  'Batch_Type'           =>  { COL => 2, POS => [ 12 ..  12] },
};

my $transaction_record_fields = {
  'Batch_Agency'         =>  { COL => 0, POS => [  1 ..   3], VALUE =>
+ "AAA" },
  'Batch_Date'           =>  { COL => 1, POS => [  4 ..  11], VALUE =>
+ "BBBBBBBB"},
  'Batch_Type'           =>  { COL => 2, POS => [ 12 ..  12], VALUE =>
+ "C"},
};