@raw_data=<survdat>;
  foreach $survinn (@raw_data)
  {
 chomp ($survinn);
 ($survwk,$survn,$survtm)=split(/,/,$survinn); 
 if ((uc($survn) eq uc($poolm)) && ($survwk == $weekin))
   {
   s/$survtm/$surv/i;  
    seek(survdat,0,0);
print survdat @raw_data;                        
  }
  }