cctbrann@mcynote ~/SRC/modules/EDI/OrderStatus : perl coll.pl $R = [ { 'client_number' => { 'format' => 3, 'decimal' => 'n/a ', 'length' => 2, 'justify' => 'L ', 'fill' => 'Blanks ', 'element' => 'Collectors Client Number (Co#) ' } }, { 'delete_code' => { 'format' => 4, 'decimal' => 'n/a ', 'length' => 1, 'justify' => 'L ', 'fill' => 'Blanks ', 'element' => 'Delete Code ' } } ]; $R = [ { 'client_number' => { 'format' => 3, 'decimal' => 'n/a ', 'length' => 2, 'justify' => 'L ', 'fill' => 'Blanks ', 'element' => 'Collectors Client Number (Co#) ' }, '1' => {} }, { 'delete_code' => { 'format' => 4, 'decimal' => 'n/a ', 'length' => 1, 'justify' => 'L ', 'fill' => 'Blanks ', 'element' => 'Delete Code ' }, '1' => {} } ]; $R = [ { 'client_number' => { 'format' => 3, 'decimal' => 'n/a ', 'length' => 2, 'justify' => 'L ', 'fill' => 'Blanks ', 'element' => 'Collectors Client Number (Co#) ' }, '1' => {}, '2' => {} }, { 'delete_code' => { 'format' => 4, 'decimal' => 'n/a ', 'length' => 1, 'justify' => 'L ', 'fill' => 'Blanks ', 'element' => 'Delete Code ' }, '1' => {}, '2' => {} } ]; cctbrann@mcynote ~/SRC/modules/EDI/OrderStatus :