Select Code to Download

  for my $lun ( ('SAN_VC0_42','SAN_VC0_43') ) {
    $luns_to_hdisk {$lun} = { grep /hdisk\d+/, qx(vxdisk list $lun) } 
+;
  } ;