C:\Code>perl how_many_indirects.pl
$VAR1 = {};
$VAR2 = [
          'PROD ITAMS',
          [
            0,
            0,
            0,
            0,
            0
          ],
          'SAT ITAMS',
          [
            0,
            0,
            0,
            0,
            0
          ],
          'DR',
          [
            0,
            0,
            0,
            0,
            0
          ]
        ];
$VAR3 = [
          'PROD ITAMS',
          $VAR2->[1],
          'SAT ITAMS',
          $VAR2->[3],
          'DR',
          [
            1,
            2,
            3,
            4
          ]
        ];

C:\Code>