$VAR1 = {
  'eventModule' => {
    'iNServiceDataEventModule' => {
      'chargePartySingle' => '\'aPartyToBeCharged (0)\'',
      'genericChargingDigits' => {
        '[0]' => '\'2000\'H',
        '[10]' => '\'72000000000000000000000000\'H',
        '[11]' => '\'730000000000000000041F\'H',
        '[12]' => '\'7400000000\'H',
        '[13]' => '\'3502\'H',
        '[1]' => '\'011351\'H',
        '[2]' => '\'223A941400\'H',
        '[3]' => '\'233A940209\'H',
        '[4]' => '\'043A2000\'H',
        '[5]' => '\'0542\'H',
        '[6]' => '\'2600\'H',
        '[7]' => '\'2700\'H',
        '[8]' => '\'080290701391620122\'H',
        '[9]' => '\'2A02\'H'
      },
      'genericChargingNumbers' => {
        '[0]' => '\'0003136985138324\'H',
        '[1]' => '\'010413198935930920\'H',
        '[2]' => '\'0203136985138324\'H',
        '[3]' => '\'038290905893701402\'H',
        '[4]' => '\'0B000002000000\'H'
      },
      'serviceFeatureCode' => '\'0002\'H',
      'timeForEvent' => '\'131A01\'H'
    }
  },
  'sCFChargingOutput' => {
    'callIdentificationNumber' => '\'6CBFD7\'H',
    'date' => '\'1409071F\'H',
    'exchangeIdentity' => '"DWLCCN6"',
    'gSMCallReferenceNumber' => '\'9103770001\'H',
    'recordSequenceNumber' => '\'39D42E\'H',
    'switchIdentity' => '\'0001\'H'
  }
};
$VAR2 = {
  'eventModule' => {
    'iNServiceDataEventModule' => {
      'chargePartySingle' => '\'bPartyToBeCharged (1)\'',
      'genericChargingDigits' => {
        '[0]' => '\'2002\'H',
        '[10]' => '\'72000000000000000000000000\'H',
        '[11]' => '\'730000000000000000001F\'H',
        '[12]' => '\'3500\'H',
        '[1]' => '\'010359\'H',
        '[2]' => '\'023A8207\'H',
        '[3]' => '\'033A8207\'H',
        '[4]' => '\'043A0000\'H',
        '[5]' => '\'0506\'H',
        '[6]' => '\'2600\'H',
        '[7]' => '\'2704\'H',
        '[8]' => '\'080290701391622322\'H',
        '[9]' => '\'2A02\'H'
      },
      'genericChargingNumbers' => {
        '[0]' => '\'0003138935167173\'H',
        '[1]' => '\'028210850000\'H',
        '[2]' => '\'0303138935167173\'H',
        '[3]' => '\'06041319\'H'
      },
      'serviceFeatureCode' => '\'0002\'H',
      'timeForEvent' => '\'131A20\'H'
    }
  },
  'sCFChargingOutput' => {
    'callIdentificationNumber' => '\'6CC99C\'H',
    'date' => '\'1409071F\'H',
    'exchangeIdentity' => '"DWLCCN6"',
    'recordSequenceNumber' => '\'39D42F\'H',
    'switchIdentity' => '\'0001\'H'
  }
};

Number of CDRs 2
'6CBFD7'H,"DWLCCN6",'9103770001'H
Use of uninitialized value in printf at test.pl line 65, <DATA> line 89.
'6CC99C'H,"DWLCCN6",