Select Code to Download

$VAR1 = {
          'SAN_VC0_42' => {
...
                            'hdisk839' => 'state=enabled'
                          }
        };

my @vxdisk_lines = qx(vxdisk list $lun);
chomp @vxdisk_lines;
...
    $h{$k} = $v;
}
$luns_to_hdisk{$lun} = \%h;