print OUT "$var1,"|",$var2,"|",$var3,"|", ...
          ^