%rims = {
      GROUP=>$string,
      LNAME=>$string,
      INITS=>$string,
      MBRID=>$string,
      M_DOB=>$string,
      DEPCD=>$string,
    P_FNAME=>$string,
      P_DOB=>$string,
      P_SEX=>$string,
};

##</code><code>##

while(<IN>) {
   chomp;
   @tmp=split(/,/,$_);
   $key = $tmp[0] . $tmp[6];
   $rims{$key} = {GROUP=>$tmp[1],LNAME=>$tmp[2],INITS=>$tmp[3],
                  MBRID=>$tmp[4],M_DOB=>$tmp[5],DEPCD=>$tmp[6],
                  P_FNAME=>$tmp[7],P_DOB=>$tmp[8],P_SEX=>$tmp[9],};
}