Dropping the -n option, makes it easy to use the same logic of skipping the first line of input.

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

Be well,
rir