Select Code to Download

        DESCRIPTION => {
                ....
...
        UNUSED => {XlsColumn => -1}
        }
    );

 print  grep ({ $DetailSheet{ColumnName}{$_}{XlsColumn} == 2 } keys %{
+$DetailSheet{ColumnName}} ) ,"\n";
  # Note - grep params are enclosed in parens.