$parser->field_map(qw/TIMESTAMP INSTRUMENT_ID INSTRUMENT_TYPE STATUS DESCRIPTION
CONSIDERATION_FACTOR COUNTRY_CODE EXCHANGE_ID CURRENCY_ID TRADED_IN_MINOR_CCY
PRIMARY_BOOK SEGMENT_CODE SECTOR_ID PRIMARY_MARKET ISIN_CODE SETTLEMENT_TYPE
SETTLEMENT_DAYS MIN_SIZE_OUTSIDE_SPREAD SETTLEMENT_EXCHANGE_ID INSTRUMENT_TYPE_QUALIFIER
DELIVERY_MECHANISM COUNTRY_OF_INCORPORATION COUPON_RATE COUPON_DATE_1 COUPON_DATE_2
ISSUE_DATE EXPIRY_DATE ACCRUED_START_DATE SHORT_FEBRUARY COUPON_TYPE ACCRUED_CALC_TYPE
DAY_COUNT_METHOD DENOMINATION TICK_SIZE PRODUCT_TYPE IS_RESEARCHED/);
while ( my @csvdata = $parser->read_file($instfile)){
      $desc{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"DESCRIPTION"};
      $status{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"STATUS"};
      $timestamp{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"TIMESTAMP"};
      $country_code{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"COUNTRY_CODE"};
      $iisin{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"ISIN_CODE"};
      $icode{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"INSTRUMENT_TYPE"};

      $ids{$csvdata{"INSTRUMENT_ID"}}++;
}