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