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],};
}