As requested by liverpole the abbreviated Dumper output is below. The arguments "required" by the code are meaningless at this point and are a future requirement. The code does require a rather lengthy data file which I'd rather not post here if possible. 

$VAR1 = 'pdisk';
$VAR2 = [
          #0
          \{},
          #1
          \{
              'GBID' => '0',
              'NBLKS' => '71048960',
              'VDISKID' => '0',
              'PARTITION NAME' => '/dev/pdisk/dsk311',
              'REDUNDANCY' => 'RM1',
              'ARRAY' => 'LSI_6840_56',
              'TARG' => '0',
              'SWAP BLKS' => '0',
              'LUN' => '0',
              'CL_ID' => '0'
            },
          #2
          \{
              'GBID' => '0',
              'NBLKS' => '71048960',
              'VDISKID' => '0',
              'PARTITION NAME' => '/dev/pdisk/dsk310',
              'REDUNDANCY' => 'RM1',
              'ARRAY' => 'LSI_6840_56',
              'TARG' => '0',
              'SWAP BLKS' => '0',
              'LUN' => '0',
              'CL_ID' => '0'
            },
.
.
.
          #2440
          \{
              'GBID' => '0',
              'NBLKS' => '142319232',
              'VDISKID' => '1823',
              'PARTITION NAME' => '/dev/pdisk/dsk3288',
              'REDUNDANCY' => 'RM1',
              'ARRAY' => 'LSI_6840_56',
              'TARG' => '0',
              'SWAP BLKS' => '0',
              'LUN' => '0',
              'CL_ID' => '20'
            },
          #2441
          \{}
        ];
$VAR3 = 'clique';
$VAR4 = [
          #0
          \{},
          #1
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '0'
            },
          #2
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '1'
            },
          #3
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '2'
            },
          #4
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '3'
            },
          #5
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '4'
            },
          #6
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '5'
            },
          #7
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '6'
            },
          #8
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '7'
            },
          #9
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '8'
            },
          #10
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '9'
            },
          #11
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '10'
            },
          #12
          \{
              'ARRAY_COUNT' => '2',
              'CL_ID' => '11'
            },
          #13
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '12'
            },
          #14
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '13'
            },
          #15
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '14'
            },
          #16
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '15'
            },
          #17
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '16'
            },
          #18
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '17'
            },
          #19
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '18'
            },
          #20
          \{
              'ARRAY_COUNT' => '4',
              'CL_ID' => '19'
            },
          #21
          \{
              'ARRAY_COUNT' => '5',
              'CL_ID' => '20'
            },
          #22
          \{
              'ARRAY_COUNT' => '5',
              'CL_ID' => '21'
            },
          #23
          \{}
        ];
$VAR5 = 'system';
$VAR6 = [
          #0
          \{},
          #1
          \{
              'SYSTEMNAME' => 'usps1',
              'BLKS_PER_CYLINDER' => '3872'
            },
          #2
          \{}
        ];
$VAR7 = 'channel';
$VAR8 = [
          #0
          \{},
          #1
          \{
              'NODE_ID' => '002-07',
              'CHANNEL' => '0x00',
              'LCU' => '0x00',
              'KIND' => 'ESCON',
              'SPEED' => 'FBR',
              'ADDRESS' => '0x00',
              'CUA' => '0x04',
              'SLOT' => '9',
              'BUS' => '4',
              'PORT' => '1',
              'HGID' => '3'
            },
          #2
          \{
              'NODE_ID' => '002-07',
              'CHANNEL' => '0x00',
              'LCU' => '0x00',
              'KIND' => 'ESCON',
              'SPEED' => 'FBR',
              'ADDRESS' => '0x00',
              'CUA' => '0x0E',
              'SLOT' => '9',
              'BUS' => '4',
              'PORT' => '0',
              'HGID' => '2'
            },
          #3
          \{
              'NODE_ID' => '003-07',
              'CHANNEL' => '0x00',
              'LCU' => '0x00',
              'KIND' => 'ESCON',
              'SPEED' => 'FBR',
              'ADDRESS' => '0x00',
              'CUA' => '0x1E',
              'SLOT' => '9',
              'BUS' => '4',
              'PORT' => '1',
              'HGID' => '5'
            },
          #4
          \{
              'NODE_ID' => '003-07',
              'CHANNEL' => '0x00',
              'LCU' => '0x00',
              'KIND' => 'ESCON',
              'SPEED' => 'FBR',
              'ADDRESS' => '0x00',
              'CUA' => '0x14',
              'SLOT' => '9',
              'BUS' => '4',
              'PORT' => '0',
              'HGID' => '4'
            },
          #5
          \{}
        ];
$VAR9 = 'node';
$VAR10 = [
           #0
           \{},
           #1
           \{
               'NODE_ID' => '001-04',
               'SLAN' => 'N',
               'PDN' => 'Y',
               'KIND' => 'PENTPRO',
               'CLAN' => 'N',
               'CL_ID' => '0',
               'TPA_OK' => 'Y'
             },
           #2
           \{
               'NODE_ID' => '001-05',
               'SLAN' => 'N',
               'PDN' => 'N',
               'KIND' => 'PENTPRO',
               'CLAN' => 'N',
               'CL_ID' => '0',
               'TPA_OK' => 'Y'
             },
.
.
.
           #128
           \{
               'NODE_ID' => '037-09',
               'SLAN' => 'N',
               'PDN' => 'N',
               'KIND' => 'PENTPRO',
               'CLAN' => 'N',
               'CL_ID' => '21',
               'TPA_OK' => 'Y'
             },
           #129
           \{}
         ];
$VAR11 = 'vproc';
$VAR12 = [
           #0
           \{},
           #1
           \{
               'VDISKID' => '0',
               'VPROCID' => '0',
               'PID_START' => '1000',
               'TYPE' => '1',
               'CL_ID' => '0',
               'PMA_ID' => '001-04',
               'PID_COUNT' => '480',
               'MOVABLE' => 'Y',
               'HGID' => '-1'
             },
           #2
           \{
               'VDISKID' => '1',
               'VPROCID' => '1',
               'PID_START' => '1480',
               'TYPE' => '1',
               'CL_ID' => '0',
               'PMA_ID' => '001-05',
               'PID_COUNT' => '480',
               'MOVABLE' => 'Y',
               'HGID' => '-1'
             },
.
.
.
           #1973
           \{
               'VDISKID' => '-1',
               'VPROCID' => '16383',
               'PID_START' => '29320',
               'TYPE' => '2',
               'CL_ID' => '0',
               'PMA_ID' => '001-04',
               'PID_COUNT' => '480',
               'MOVABLE' => 'Y',
               'HGID' => '1'
             },
           #1974
           \{},
           #1975
           \{}
         ];
$VAR13 = 'disk_name';
$VAR14 = [
           #0
           \{
               'Current Location' => '/dev/rdsk/c700t0d0s8',
               'local device' => '/dev/rdsk/c700t0d0s8',
               'node' => 'byn001-4',
               'pdisk global name' => '/dev/pdisk/dsk311'
             },
           #1
           \{
               'Current Location' => '/dev/rdsk/c700t0d0s8',
               'local device' => '/dev/rdsk/c700t0d0s8',
               'node' => 'byn001-5',
               'pdisk global name' => '/dev/pdisk/dsk311'
             },
           #2
           \{
               'Current Location' => '/dev/rdsk/c700t0d0s8',
               'local device' => '/dev/rdsk/c700t0d0s8',
               'node' => 'byn001-6',
               'pdisk global name' => '/dev/pdisk/dsk311'
.
.
.
           #14367
           \{
               'Current Location' => '/dev/rdsk/c700t4d2s8',
               'local device' => '/dev/rdsk/c700t4d2s8',
               'node' => 'byn036-9',
               'pdisk global name' => '/dev/pdisk/dsk3288'
             }
         ];
$VAR15 = 'lan';
$VAR16 = [
           #0
           \{},
           #1
           \{
               'NODE_ID' => '001-04',
               'KIND' => 'ETHER',
               'SLOT' => '5',
               'HGID' => '1',
               'PORT' => '0',
               'BUS' => '6'
             },
           #2
           \{
               'NODE_ID' => '001-04',
               'KIND' => 'BYNET',
               'SLOT' => '-1',
               'HGID' => '1',
               'PORT' => '0',
               'BUS' => '-1'
             },
.
.
.
           #169
           \{
               'NODE_ID' => '037-09',
               'KIND' => 'BYNET',
               'SLOT' => '-1',
               'HGID' => '1',
               'PORT' => '0',
               'BUS' => '-1'
             },
           #170
           \{}
         ];

[download]

In reply to Re^2: Not a HASH reference by NateTut
in thread Not a HASH reference by NateTut

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.