in reply to Re^2: Need to get hash of arrays
in thread Need to get hash of arrays

Hello Smart Monks, Thanks for your help. I have fixed this by below assignment

push @{ $hash4{$cellp[$_]} }, $cellr[$_] for (0..$#cellp);

I have fixed by below and lable as appropriate about within network or no network users

if (grep { grep { $_ eq "No Network" } @{$hash4{$celln[$o]}} } keys %h
+ash4) {
worksheet->write($r12, 2, "Non Network");
}

[download]

Thanks for your help.

In Section Seekers of Perl Wisdom