I can't tell what you want the end structure to look like. My guess is that this is what you want:

$luns_to_hdisk {$lun}
    = { map  { chomp; split }
        grep { /hdisk\d+/ }   qx(vxdisk list $lun) }
[download]