Select Code to Download

Storage system address: 192.168.1.2
Storage system port: 443
...
      Firmware revision = ES0E
      WWN               = 06:00:00:00:05:00:00:00:01:00:00:00:01:00:00
+:03
      .......................many more similar lines.

########################
use strict;
...
#Use Data::Dumper output to verify.
print Dumper($aoh_ref_physical_disks);

C:\Users\pritesh\perlscripts>perl test.pl
$VAR1 = [
          {
...
                ];
#and so on.............
C:\Users\pugrankar\perlscripts>