$hdr=<>; 
   while ( <> ){ 
      @A=split(","); 
      print join(",", @A[0 .. 3]),"\n" 
   }