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