Below is the code i used.
#!/usr/bin/perl
no warnings "all";
open (FILE, 'G0_Probe_Report.tsv');
while (<FILE>) {
	chomp;
	($name, $ID, $chromosome, $start_location, $control_type, $IP_foreground, $IP_background, $WCE_foreground, $WCE_background, $IP_background_SD, $WCE_background_SD,$norm_IP_signal, $norm_WCE_signal, $normalized_log_ratio, $x, $p_value, $z, $xbar, $p_xbar, $in_bound_regoin, $exclude, $primary_annotation, $secondary_annotation, $accession_number, $primary_annotation_type) = split("\t");
	open (OFILE, '>name.tsv');
	print "$name\n OFILE";
}
close (FILE);
close (OFILE);
exit;