Hi Monks, I have 5 arrays containing inter-related data that I need to match up. I would like to have a normal hash, but how do I know if I need a hoh or hoa? Regardless, array1 contains diskgroup names, array2 contains filesystem names, array3 contains hdisks, array4 contains sizes of these hdisks and array5 contains lun ids. I would like to have array1 data be the key and the rest of the array's date be values. Or is there a better way? Thank you.

# of elements per array
14 array1
53 array2
416 array3
416 array4
52 array5

I have tried these ways unsuccessfully
my %hash = ();
@hash{ @array1,@array2,etc } = @list;

AND

for (@nodupLuns) {
    $hash{@dgarray}{@fs}{@nodupHdisks}{@sizes} = {
        'lunid' => $_
    };
}

__CODE__

#!/usr/bin/perl

use strict;
use warnings;
$ENV{PATH} = qq(/usr/sbin:/usr/bin);

my @dgarray;
open (DG, "vxdg list |") or die "vxdg did not open $!";
    while (<DG>) {
        next if /name/i;
        push @dgarray, +(split)[0];
    }
close (DG);

my (@hdisks,@sizes,@nodupHdisks,@nodupLuns,@lunid,$svc,$dg,$hdisk,@fs,
+$lun);
for $dg (@dgarray) {
    open (DF, "df -k |") or die "df did not open $!";
    while (<DF>) {
        if ( /$dg/ ) {
            push @fs, +(split)[6];
        }
    } close (DF);

    open (VXP, "vxprint -thvm -g $dg |") or die "vxprint did not open 
+$!";
    while (<VXP>) {
        if ( /device_tag/ ) {
            my @tmp = (split /device_tag=/);
            for $svc (@tmp) {
                open (VXD, "vxdisk list $svc |") or die "vxdisk list f
+ailed $!";
                while (<VXD>) {
                    if ( /state=\w+/ ) {
                        push @hdisks, (split /state=enabled/);
                    }
                }
            }
        }
    } close (VXD);
}

    my %counts;
    @nodupHdisks =
        grep { $_ =~ /hdisk\d+/ and ++$counts{$_} < 2 } @hdisks;
    @sizes = map `bootinfo -s $_`, @nodupHdisks;

    for $lun (@nodupHdisks) {
    open (LUNID, "lscfg -vl $lun |") or die "lscfg failed $!";
        while (<LUNID>) {
            if (/serial/i) {
                push @lunid, substr($_,-33);
            }
        }
    }
    %counts = ();
    @nodupLuns =
        grep { $_ =~ /\w+/ and ++$counts{$_} < 2 } @lunid;
[download]