$VAR1 = {
          'SAN_VC0_42' => {
                            'hdisk368' => 'state=enabled',
                            'hdisk303' => 'state=enabled',
                            'hdisk636' => 'state=enabled',
                            'hdisk35' => 'state=enabled',
                            'hdisk904' => 'state=enabled',
                            'hdisk571' => 'state=enabled',
                            'hdisk100' => 'state=enabled',
                            'hdisk839' => 'state=enabled'
                          }
        };

##</code><code>##

my @vxdisk_lines = qx(vxdisk list $lun);
chomp @vxdisk_lines;
my @hdisks = grep {/hdisk\d+/} @vxdisk_lines;
my %h;
for (@hdisks) {
    my ($k, $v) = split;
    $h{$k} = $v;
}
$luns_to_hdisk{$lun} = \%h;